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ABSTRACT 


This  thesis  investigated  the  feasibility  of  developing  a 
small  scale  management  information  system  on  a 
micro-computer.  The  working  system  was  developed  around  the 
Operations  Research  Society  of  America  (ORSA)  three  tiered 
review  and  acceptance  process  for  articles  submitted  for 
publication  in  the  ORSA  journal. 

The  management  information  system  was  designed  using 
Ashton-Tate ' s  dBaselll  software.  As  designed,  the  system 
will  operate  on  any  computer  operating  under  Microsoft's 
Disk  Operating  System  (MS-DOS) .  The  user  must  provide  his 
own  dBaselll  software. 

A  similar  management  information  system  could  be 
tailored  to  almost  any  operation  having  a  need  to  monitor, 
control  and  evaluate  time  sensitive  workloads. 
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INTRODUCTION 


I . 


A.  BACKGROUND 

Managers  in  all  industries,  including  the  Department  of 
Defense  (DoD) ,  are  faced  with  the  task  of  providing  a 
product  or  service  in  a  timely  and  efficient  manner.  This 
task  becomes  more  difficult  as  the  work  to  be  accomplished 
is  either  more  diversified  or  the  manager  is  required  to 
delegate  the  responsibilities  for  accompl ishing  the  tasks  or 
sub  tasks  to  various  people  within  his  organization. 
Complexity  increases  if  the  manager  must  rely  on  someone 
outside  of  his  or  her  immediate  authority  for  input  to  the 
final  product. 

The  role  of  the  mid-level  manager  in  the  Department  of 
Defense  has  become  more  and  more  diversified  and  complex  as 
the  sophistication  of  defense  systems  has  increased.  The 
reductions  in  staffing  levels  along  with  limitations  on 
resources  available  require  the  manager  to  not  only  optimize 
efficiency  but  also  closely  monitor  time  sensitive  issues. 

The  advent  of  office  automation  throughout  the 

Government  has  proven  to  have  both  advantages  and 

% 

disadvantages .  The  availability  of  stand  alone 
micro-computers  provides  for  rapid  analysis  of  specific 


6 


problems  such  as  statistical  computations.  The  average 
mid-level  manager  now  has  at  his  disposal  powerful  hardware 
and  software  that  he  quite  often  cannot  use  effectively. 
These  sophisticated  tools,  in  many  instances,  provide  more 
computational  power  than  the  manager  needs  or  has  time  to 
learn  to  use.  Elaborate  commercially  available  software  has 
been  developed  that  will  provide  assistance  in  a  wide  range 
of  areas.  The  typical  manager  does  not  require  the  full 
capabilities  of  these  packages  and  therefore  cannot  afford 
to  devote  the  time  necessary  to  utilize  them  eificiently. 
Quite  often,  subsets  of  these  commercial  packages  are  all 
that  are  needed.  Therefore,  the  manager,  lacking  either  the 
time  or  the  expertise,  does  not  avail  himself  or  herself  of 
these  tools. 

What  the  mid-level  managers  need  is  software  tailored 
more  specifically  to  their  operations.  The  use  of  a  small 
scale  management  information  system  could  prove  highly 
beneficial  to  many  managers  within  the  Department  of 
Defense . 

B.  STATEMENT  OF  PROBLEM 

Can  a  stand  alone,  versatile  and  manageable  information 
system  be  developed  to  assist  the  mid-level  manager  in 
planning,  monitoring  and  controlling  workload  along  with 
evaluating  operational  performance  within  available 
resources? 
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Some  other  relevant  questions  that  were  addressed 
include  but  are  not  limited  to: 

1.  Can  existing  software  be  employed  or  must  software 
be  developed? 

2.  What  are  the  subsequent  hardware  requirements  for  the 
preferred  software? 

3.  How  compatible  are  the  software  and  hardware  require¬ 
ments  to  existing  DoD  resources? 

4.  How  flexible  is  the  selected  software  should  future 
modifications  to  the  system  be  needed? 

The  management  information  model  developed  in  this 
thesis  uses  commercially  available  software.  The  system 
will  operate  on  micro-computers  operating  under  the 
Microsoft  Disk  Operating  System  (MS-DOS) .  The  software  used 
allows  modifications  to  the  management  information  system 
should  future  requirements  change.  Micro-computers  using 
MS-DOS  are  currently  in  the  DoD  inventory. 

The  balance  of  this  thesis  will  describe  the  methods 
used  in  developing  the  management  information  system  along 
with  step  by  step  instructions  on  how  the  user  would  access 
and  use  the  system. 

C.  SCOPE 

The  main  thrust  of  this  thesis  was  to  determine  the 
feasibility  of  developing  a  relatively  small  scale 
management  information  system.  Once  such  a  system  proved 
feasible,  a  model  was  developed.  The  system,  or  one  similar 
to  the  system  developed,  will  provide  the  manager  with  a 
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resource/decision  tool  for  assisting  in  fulfilling  time 
sensitive  managerial  responsibilities. 

The  management  information  system  actually  presented  in 
this  paper  was  designed  around  the  Operations  Research 
Society  of  America’s  (ORSA)  three  tiered  process  of 
reviewing  and  approving  articles  that  are  submitted  for 
inclusion  into  the  Society's  bimonthly  journal. 

The  Society's  review  and  acceptance  for  publication  of 
articles  that  are  submitted  is  based  upon  a  three  tiered 
process.  Articles  are  submitted  to  the  editor  who  has  the 
overall  responsibility  for  the  articles  that  are  eventually 
published  in  the  ORSA  journal.  The  editor  assigns  each 
article  he  receives  to  an  area  editor.  The  selection  of  the 
area  editor  depends  upon  subject  area  of  the  article 
submitted.  The  area  editors,  in  turn,  forward  the  articles 
to  the  actual  reviewers.  There  is  a  special  interest  group 
(SIG)  chairman  for  each  subject  area. 

Authors  of  prospective  articles  may  submit  their 
articles  directly  to  the  area  editors.  In  cases  where  this 
occurs,  the  receiving  area  editor  must  inform  the  editor  of 
the  proposed  articles  so  that  the  editor  can  maintain 
control  over  the  entire  operation. 

The  editor  must  assure  that  articles  are  reviewed  in  a 
timely  manner.  He  must  also  maintain  an  overall  view  of 
which  subject  areas  have  the  most  activity,  what  are  the 
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relevant  statistics  associated  with  review  and  publication 
times,  and,  what  are  the  acceptance  rates  of  submitted 
articles  within  the  various  subject  areas. 

The  editor  has  the  task  of  reviewing,  accepting  and 
publishing  articles  for  the  Society's  journal  but  without 
definitive  authority  over  the  two  lower  tiers  in  the  review 
process.  He  must  also  respond  to  the  queries  of  the  SIG 
chairmen  and  submitting  authors  concerning  the  level  of 
activity  within  the  various  subject  areas,  the  acceptance 
status  and  expected  publication  dates  of  articles  that  were 
submitted . 
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II . 


METHODOLOGY 


A.  SOFTWARE 

The  selection  of  appropriate  software  was  based  upon  a 
personal  survey  of  software  currently  available  in  the 
marketplace.  Evaluation  criteria  for  the  software  included: 

1.  Current  availability, 

2.  Ease  of  use, 

3.  Flexibility, 

4.  Interactive  capability, 

5.  Established  reputation  with  computer  users, 

6.  Programmability  and, 

7.  Available  support  from  the  vendor. 

Some  of  the  currently  available  software  packages  that 
were  reviewed  included: 

1.  Lotus  1-2-3  and  Symphony  from  Lotus  Development  Corp. 

2.  Framework  and  dBaselll  from  Ashton-Tate 

3.  Turbo  Pascal  and  Reflex  from  Borland  International 

4.  Fortran  77  from  Digital  Research 

5.  Microsoft  Fortran  from  Microsoft,  Corp. 

6.  R:base  5000  from  Microrim,  Inc. 

The  software  used  in  developing  the  system  was  dBaselll 
from  Ashton-Tate.  This  software  is  well  accepted  by  computer 
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users.  The  software  can  be  used  by  novices  using  the 
integral  interactive  mode  provided  by  the  package.  The 
dBaselll  package  allows  programming  of  functions  and 
procedures  that  are  specialized  to  the  user.  A  system 
design  within  dBaselll  can  be  operated  by  a  user  having 
minimal  knowledge  of  dBaselll  itself.  If  the  operator  can 
load  the  software  onto  the  computer,  the  data  base 
management  system  that  was  developed  can  be  accessed  and 
utilized. 

The  user  must  provide  the  dBaselll  software  to  use  the 
management  information  system  that  was  developed. 

B.  HARDWARE 

The  management  information  system  and  dBaselll  can  be 
run  on  most  computers  that  use  the  Microsoft  Disk  Operating 
System,  known  in  the  industry  as  MS-DOS.  The  MS-DOS  used 
must  be  version  2.1  or  later. 

The  management  information  system  was  developed  on  a 
micro-computer  with  MS-DOS  2.11.  The  available  storage 
consisted  of  a  standard  360  kilobyte  floppy  disk  drive  and  a 
10  megabyte  hard  disk.  The  system  has  640  kilobytes  of 
available  random  access  memory  (RAM). 

Although  a  hard  disk  is  a  great  convenience,  the 
management  information  system  can  be  used  with  a  system 
having  a  minimum  of  two  360  kilobyte  floppy  disk  drives. 
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C.  DATABASE  DESIGN 


The  databases  were  developed  around  the  ORSA 
requirements  for  reviewing,  accepting  or  rejecting  and 
publishing  articles  that  are  submitted  for  inclusion  in  the 
bimonthly  ORSA  journal.  Three  different  databases  were 
deemed  necessary: 

1.  A  publication  database  to  accommodate  information 
specific  to  each  article  submitted; 

2.  An  author  database  for  information  on  authors  sub¬ 
mitting  articles;  and, 

3.  An  area  editor  and  SIG  chairman  database  for  adminis¬ 
trative  information  on  the  area  editors  and  the  special 
interest  group  chairmen. 

4.  A  subject  category  database  containing  subject  category 
codes  and  subject  titles.  These  are  assigned  to  articles 
depending  upon  the  related  subject  area. 

The  size  of  each  field  within  a  database  was  determined 
by  a  combination  of  sampling  and  logical  interpretation. 

The  size  of  the  fields  for  article  title,  author  names  and 
author's  affiliation  were  determined  by  sampling  articles 
that  have  been  published  in  the  ORSA  journal  over  the  last 
three  years  (1983  -  1985).  The  results  of  the  sampling  are 
depicted  in  Table  1  . 
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TABLE  1 


SAMPLING  RESULTS 

Mean  Std  deviation 
Length  of  Length 
Sample  size  Characters 


Article  title 

269 

67.1 

20.7 

Author  names 

433 

14.5 

2.8 

Author  affiliations 

71 

26.5 

11.6 

The  final  size  of  these  data  fields  were  increased  over 
their  means  to  all  the  majority  of  the  article  titles, 
author  names  and  author  affiliations  to  be  entered 
completely  into  the  appropriate  databases. 

Two  additional  databases  are  included  in  the  management 
information  system.  These  are  the  historical  publications 
data  base  and  the  historical  authors  database.  These  two 
databases  allow  archiving  records  that  require  no  further 
action.  This  capability  to  archive  records  provides  two 
distinct  benefits. 

1.  Statistics  on  past  performance  can  be  retained. 

This  historical  database  can  be  removed  from  the  system 
until  it  is  needed  for  updates. 

2.  The  primary  databases  can  be  purged  of  historical 
information  thereby  reducing  the  size  of  the  database  and 
providing  a  savings  in  processing  time. 

1 .  Publications  Database 

The  database  structure  for  the  publications 
database  is  provided  in  Table  2. 
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TABLE  2 


STRUCTURE  FOR  PUBLICATIONS  DATABASE 


Field  Name 

Data  Type 

Field  Size 

Field  Content 

TITLE 

Character 

100 

Article  title 

SUBNUMB 

Numeric 

5 

Submission  number 

AUTHORS 

Numeric 

1 

Number  of  authors 

SUBDATE 

Date 

8 

Submission  date 

CATNUMB1 

Character 

3 

1st  subject  category 

CATNUMB2 

Character 

3 

2nd  subject  category 

CATNUMB3 

Character 

3 

3rd  subject  category 

AREA 

Character 

5 

Area  editor  code 

ACCCODE 

Character 

1 

Acceptance  status  code 

MODTIME 

Numeric 

4 

Days  in  modification 

ACRJDATE 

Date 

8 

Accept/reject  date 

PUBDATE 

Date 

8 

Publication  date 

Total  record  length  150  characters 

The  database  structure  depicted  in  Table  2  applies 
to  both  the  current  and  historical  publications  data  bases. 
2.  Authors  Database 


Both  the  current  authors  database  and  the 
historical  authors  database  have  the  same  structure.  This 
structure  is  illustrated  in  Table  3. 

TABLE  3 


STRUCTURE  FOR  AUTHORS  DATABASE 


Field  Name 

Data  Type 

Field  Size 

Field  Content 

SUBNUMB 

Numeric 

5 

Submission  number 

LASTNAME 

Character 

15 

Author's  last  name 

FIRSTNAME 

Character 

12 

Author's  first  name 

AFFILIATE 

Character 

50 

Author’s  affiliation 

ADDRESS1 

Character 

30 

1st  address  line 

ADDRESS 2 

Character 

30 

2nd  address  line 

CITY 

Character 

20 

City  of  residence 

STATE 

Character 

20 

State  or  country 

ZIP 

Character 

10 

Zip  code 

PHONE 

Character 

12 

Telephone  number 

Total  record  length  205  characters 


15 


3.  Area  Editors  Database 


The  area  editors  database  is  unique  in  that  it 
contains  information  about  two  groups  of  people.  These  are 
the  area  editors  and  the  special  interest  group  chairmen. 

The  content  of  this  database  unlike  the  publication  or 
author  databases  is  essentially  fixed.  The  information 
contained  applies  primarily  to  the  administrative  functions 
of  the  ORSA  operation.  The  area  editor  represents  the  second 
level  of  the  three  tiered  review  system.  The  information  in 
this  database  will  need  to  be  updated  only  when  an  area 
editor  or  a  SIG  chairman  is  replaced.  The  structure  of  the 
database  is  reflected  in  Table  4. 

4 .  Subject  Category  Database 

The  subject  category  database  is  provided  merely 
as  an  online  reference  to  the  subject  category  numbers  and 
the  subjects  themselves.  The  subject  category  numbers  are 
two  or  three  digit  numbers  that  cross  reference  an  article 
with  a  specific  subject  area.  Each  author  is  required  to 
suggest  three  subject  areas  that  the  article  that  is  being 
submitted  could  be  classified  under.  These  category  numbers 
are  used  for  annual  indices  of  articles  that  were  published 
by  the  Society. 

This  database  is  probably  the  most  static  of  all  the 
databases  provided.  The  structure  of  this  database  consists 
of  only  two  fields  both  of  which  contain  character  data. 
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The  first  is  the  CATNUMB  field  which  is  three  characters 
wide  and  contains  the  subject  category  number.  The  other  is 
the  SUBJECT  field  which  is  60  characters  wide  and  contains 
the  subject  title. 


TABLE  4 


AREA  EDITOR  AND  SIG  CHAIRMAN  DATABASE 


Field  Name 

Data  Type 

Field  Size 

Field  Content 

AREA 

Character 

5 

Subject  area  code 

TITLE 

Character 

65 

Subject  area  title 

LASTNAME 

Character 

15 

Area  editor  last  name 

FIRSTNAME 

Character 

12 

Editor  first  name 

AFFILIATE 

Character 

75 

Editor’s  affiliation 

ADDRESS1 

Character 

30 

1st  address  line 

ADDRESS2 

Character 

30 

2nd  address  line 

CITY 

Character 

20 

City  of  residence 

STATE 

Character 

20 

State  or  country 

ZIP 

Character 

10 

Zip  code 

PHONE 

Character 

12 

Telephone  number 

SIGCHAIR 

Character 

25 

SIG's  full  name 

SAFFILIATE 

Character 

60 

SIG's  affiliation 

SADDRESS1 

Character 

30 

1st  address  line 

SADDRESS2 

Character 

30 

2nd  address  line 

SCITY 

Character 

20 

City  of  residence 

SSTATE 

Character 

20 

State  or  country 

SZIP 

Character 

10 

Zip  code 

SPHONE 

Character 

12 

Telephone  number 

Total  record  length  502  characters 


D.  MANAGEMENT  INFORMATION  SYSTEM  PROGRAMS  &  FILES 

The  programs  used  in  the  management  information  system 
were  written  using  the  language  inherent  in  dBaselll.  This 
allows  any  prospective  user  to  merely  load  dBaselll  onto  his 
system  and  immediately  access  the  management  information 
system.  Once  the  system  is  initialized,  using  the  system  is 
simply  a  matter  of  selecting  options  from  menus  and 
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responding  to  prompts.  This  enables  the  occasional  user  to 
use  the  elaborate  structures  within  dBaselll  without  having 
to  have  any  intimate  knowledge  of  the  software  package. 

The  system  is  comprised  of  database  files,  executable 
programs,  format  files,  label  structure  files,  and  index 
files . 

The  database  files  are  the  core  of  the  entire  system. 

All  other  files  and  programs  perform  functions  and 
calculations  based  upon  the  contents  of  the  database  files. 
The  structure  of  the  data  base  files  were  previously 
depicted  in  Table  2  through  Table  4. 

The  purpose  of  the  remaining  files  and  programs  are 
further  detailed  in  the  subsequent  sections. 

1 ■  Executable  Programs 

The  executable  programs  perform  some  action  on  the 
databases.  There  are  twenty-seven  programs  in  the  system. 

All  of  these  programs  have  the  file  extension  . PRG .  A 
flow  chart  depicting  the  relationship  between  the  programs 
and  the  menu  selections  available  to  the  user  is  contained 
in  Appendix  A.  A  full  text  listing  of  each  of  these  programs 
is  provided  in  Appendix  B.  Table  5  lists  the  names  and 
functions  of  the  executable  programs  as  they  exist  on  the 
computer  system. 
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2. 


Format  Files 


The  format  files  in  dBaselll  serve  two  purposes. 

The  format  file  allows  the  program  to  specify  a  specific 
screen  layout  for  the  information  that  must  either  be 
presented  to  the  user  or  received  from  the  user.  This 
type  of  file  can  be  created  once  and  used  repeatedly  in  the 
same  or  different  executable  programs.  This  feature  greatly 
reduces  the  amount  of  programming  code  that  must  be  written. 

All  dBaselll  format  files  have  the  extension  . FMT .  The  names 
and  functions  of  the  eight  format  files  used  in  this  management 
information  system  are  provided  at  Table  6.  Full  text  listings  of 
these  files  are  also  provided  in  Appendix  A. 

3 .  Label  Files 

The  label  files  provided  in  this  system  enable  the 
user  to  print  mailing  labels  for  either  the  area  editors  or 
the  SIG  chairmen.  The  format  of  these  files  is  for  standard 
3  1/2  inch  by  15/16  inch  labels.  These  labels  are  limited  to 
five  lines  of  text  with  each  line  having  a  limit  of  35  charac¬ 
ters.  In  dBaselll,  label  files  are  assigned  the  extension  .LBL. 
The  files  TEDITOR  and  TSIG  provide  mailing  labels  for  the  area 
editors  and  the  SIG  chairmen,  respectively. 

4 .  Index  Files 

Index  files  in  dBaselll  allow  programs  to  access 
databases  in  a  specific  order.  These  files  provide  the  same 
function  as  sorting  except  that  they  execute  faster,  require 
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less  storage  space  and  are  automatically  updated  as  items  are 
added  to  or  removed  from  the  database.  The  default  extension 
for  index  files  is  ,NDX .  This  system  uses  eleven 
different  index  files.  The  names  and  functions  of  these  files 
are  illustrated  in  Table  7. 
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TABLE  5 


Program 

TAGEMNU 

TALLSTAT 

TARCDEL 

TARCDELP 

TDELETE 

TDELMNU 

TEDIT 

TEDITMNU 

TEDSIG 

THOLDAGE 

TINPUT 

TMENU 

TMODAGE 

TPPRTAC 

TPPRTAL 

TPPRTAR 

TPPRTCN 

TPPRTSB 

TPRTAUTH 

TPRTED 

TPRTLBL 

TPRTSIG 

TPRTSUBJ 

TPUBSTAT 

TRPRTMNU 

TRPTPUB 

TSTATMNU 


EXECUTABLE  PROGRAMS  &  THEIR  FUNCTIONS 
Function 

Menu  for  selecting  which  articles  to  check  the 
age  since  receipt  or  return  for  modification. 
Provides  statistics  on  the  average  times  from 
submission  to  acceptance/re jection ,  publication. 
Archives  and  deletes  a  selected  article. 

Archives  and  deletes  all  articles  that  have 
been  published. 

Deletes  a  selected  article. 

Menu  to  delete  or  archive  and  delete  articles. 
Edit  an  existing  record. 

Menu  to  select  what  is  to  be  edited. 

Edit  the  area  editor  or  SIG  chairmen  database. 
Check  age  of  articles  that  are  still  in  review. 
Input  new  records  to  the  publications  and 
authors  databases. 

Main  menu  of  the  management  information  system. 
Check  the  time  since  an  article  was  return  to 
the  author  for  modification. 

Review  or  print  articles  by  acceptance  status. 
Review  or  print  all  articles  in  the  publications 
databases . 

Review  or  print  articles  within  a  specified 
subject  area  code. 

Review  or  print  articles  with  a  given  subject 
category  number. 

Review  or  print  an  article  with  a  specified 
submission  number. 

Review  or  print  information  from  the  authors 
databases . 

Review  or  print  information  about  a  specific 
area  editor  code. 

Select  whether  to  print  mailing  labels  for  the 
area  editors  or  the  ST~  chairmen. 

Review  or  print  information  about  a  specific 
area  SIG  chairman. 

Review  or  print  subject  category  numbers  and 
titles . 

Provides  counts  and  percentages  for  various 
acceptance  status  codes  on  the  publications. 

Menu  to  select  which  database  is  to  be  reviewed 
or  printed  and  in  what  format. 

Menu  to  select  how  articles  will  be  reviewed 
or  printed. 

Menu  to  select  statistical  options. 
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TABLE  6 


Program 

AUTHEDIT 

AUTHINPT 

LISTAREA 

PUBEDIT 

PUBINPUT 

TEDITOR 

TRPRTMNU 

TSIG 


Program 

TAHSTSBN 

TAREA2 

TATNAME 

TAUTHSBN 

THATNAME 

TPHARSB 

TPHSTSBN 

TPUBACC 

TPUBARSB 

TPUBSBN 

TSUBCAT2 


FORMAT  FILES  &  THEIR  FUNCTIONS 
Function 

This  file  paints  the  screen  for  editing  author 
information. 

Provides  the  layout  to  enter  information  for  a 
new  author. 

Constructs  a  menu  layout  for  selecting  a  subject 
area  to  be  acted  upon. 

The  format  screen  for  editing  information  in  the 
publication  database 

Formats  the  screen  for  insertion  of  new  articles 
into  the  publication  database. 

Provides  the  user  with  formatted  information  for 
the  area  editors. 

Paints  the  menu  for  available  options  in  reviewing 
or  printing  articles  from  the  publication  database. 
Provides  the  user  with  formatted  information  for 
the  special  interest  group  chairmen. 

TABLE  7 

INDEX  FILES  &  THEIR  FUNCTIONS 
Function 

Indexes  the  historical  author  data  base  by 
submission  number. 

Indexes  the  area  editor  and  SIG  chairman  data 
base  by  subject  area. 

Indexes  the  authors  by  last  and  first  names. 

Indexes  authors  by  submission  number. 

Indexes  the  historical  author  by  lastname 
and  firstname. 

Indexes  the  historical  publications  by  subject 
area  and  submission  number. 

Indexes  by  submission  number  the  historical 
publications  data  base. 

Indexed  the  publications  data  base  by  acceptance 
status  code. 

Indexes  publications  by  subject  and  submission 
number . 

Indexes  the  publications  by  submission  number. 
Indexes  the  subject  category  file  by  subject 
category  number. 
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III.  MANAGEMENT  INFORMATION  SYSTEM  OPERATION 


A.  SYSTEM  INSTALLATION  AND  STARTUP 

Installation  of  this  system  requires  only  that  all  the 
programs  provided  on  the  disk  be  maintained  on  the  same 
drive.  If  a  hard  disk  is  available,  all  programs  can  be 
copied  to  that  drive.  Should  space  become  a  problem, 
especially  on  a  floppy  disk,  the  historical  files  can  be 
moved  to  another  disk.  However,  if  the  historical  files  are 
removed  from  the  system  disk,  archiving  and  deleting  records 
cannot  be  accomplished  from  the  menu  driven  system.  It 
would  be  necessary  to  reinstall  these  files  prior  to 
attempting  an  archive  operation. 

Accessing  the  management  information  system  requires  two 
steps  beyond  computer  boot-up.  First,  dBaselll  must  be 
initialized.  Secondly,  the  command  "do  TMENU"  must  be  input 
at  the  dBaselll  dot  prompt.  This  command  and  all  subsequent 
commands  depicted  in  this  section  are  input  without  the 
quotation  marks.  From  this  point  on,  the  entire  management 
information  system  is  menu  driven. 

B.  GENERAL  COMMENTS  ON  THE  SYSTEM 

The  management  information  system  was  developed  with  the 
user  in  mind.  In  all  instances,  the  databases  are 
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safeguarded  from  normal  user  errors.  If  an  invalid  entry  is 
attempted,  the  current  menu  will  either  be  redisplayed  or  an 
error  message  will  be  given  before  the  user  is  allowed  to 
retry  an  entry.  Prompts  are  displayed  throughout  system 
execution  whenever  input  is  required  from  the  user. 

C.  START-UP  AND  MAIN  MENU 

The  first  message  that  is  presented  when  the  system  is 
initiated  with  the  command  "do  TMENU"  from  the  dBaselll  dot 
prompt  is: 

Today  is  Day  of  Week,  Month  Date,  Year 

If  this  is  not  the  correct  date  enter  N  then 

reboot  your  system  with  the  current  date. 

If  the  date  is  correct  then  hit  Y  to  continue. 

Enter  N  or  Y: 

For  the  management  information  system  to  operate 
correctly,  it  is  absolutely  necessary  that  the  current  date 
be  correct  whenever  any  articles  are  entered,  edited  or 
deleted.  Statistics  provided  by  the  system  also  require  the 
correct  current  date.  Many  computer  systems  are  equipped 
with  a  clock  calendar  that  automatically  sets  the  correct 
time  and  date.  On  other  systems,  the  user  is  asked  to  enter 
the  correct  time  and  date  as  part  of  the  operating  system 
initialization. 

Once  the  correct  date  is  established  by  answering  "Y"  or 
rebooting,  the  main  menu  will  be  presented. 


Publications  Database  System 

Make  your  selection  from  the  following  list: 

1.  Add  new  entries 

2.  Edit  existing  records 

3.  Review/Print  entries 

4.  Check  age  of  publications 

5.  Report  statistics 

6.  Delete/Archive  records 

X.  Exit  to  DOS 

RETURN  Exit  to  DBASE 

Enter  selection: 

Each  of  these  options  will  be  depicted  in  the  sections 
that  follow. 

D.  ADD  NEW  ENTRIES 

This  is  the  first  option  available  from  the  main  menu. 
Selection  of  this  option  enables  the  user  to  enter  new 
articles  into  the  publication  database  and  relevant  authors 
to  the  authors  database.  After  selecting  this  option,  you 
will  be  prompted  to  enter  the  title  of  the  article  being 
input  into  the  database.  After  the  title  is  input,  the 
system  will  automatically  assign  the  next  submission  number 
that  is  available. 

For  illustrative  purposes  assume  that  the  number  8  is 
the  next  available  submission  number.  The  system  will 
display  the  following  screen: 


25 


Submission  number  (XXXXX) :  8 

Title  (100  characters  max): 

Solving  0-1  Integer  Programming  Problems  Arising  from 

Large  Scale  Planning  Models 
Number  of  authors  (X) : 

Submission  date  (MM/DD/YY) :  06/11/86 

First  subject  category  number  (XXX) : 

Second  subject  category  number  (XXX) : 

Third  subject  category  number  (XXX) : 

Area  editor  subject  abbreviation  (XXXXX) : 

DABN  DIS  DNFP  HCSSI  ICS  NRMEE 

OPT  ORP  PSIMM  SIESM  SSPS  SPTA 

(Hit  PgDn  to  move  to  author  file.) 

The  system  automatically  assigns  the  submission  number 
along  with  the  current  date  and  displays  the  title  that  was 
entered.  All  information  can  now  be  filled  in  for  the 
article  in  question.  Although  automatically  entered,  the 
submission  number  and  the  submission  date  can  be  modified  if 
desired.  Modifying  the  submission  number  would  only  be 
reasonable  if  an  earlier  submission  number  had  been  deleted 
and  the  user  choose  to  reuse  that  number.  Modifying  the 
submission  date  would  be  appropriate  if  the  user  "batches" 
several  entries  before  updating  the  database.  The  user 
would  simply  write  over  the  current  date  with  the  actual 
date  of  receipt.  Any  entry  can  be  ignored  by  hitting  the 
return  key.  The  user  may  move  freely  among  all  data  fields 
by  using  the  up  and  down  cursor  arrows.  The  only  exception 
to  this  is  if  the  last  field  of  the  record  is  completely 


26 


filled  in  or  the  return  key  is  pressed  while  in  this  field. 
At  that  point,  the  system  will  automatical ly  transfer  to  the 
author  input  screen. 


When  all  the  information  has  been  entered,  the  system 
will  automatically  present  the  user  with  the  entry  screen 
for  the  authors.  This  screen  will  be  repeated  a  number  of 
times  equal  to  the  value  specified  in  the  "Number  of 
authors"  field.  The  author  input  screen  is  depicted  below. 
The  submission  number  is  inserted  automatically.  If  the 
submission  number  was  modified  in  the  article  entry  screen, 
the  submission  number  in  the  author  screen  must  be  modified 
also.  The  submission  number  is  the  linkage  between  the 
authors  and  the  publications  databases.  Therefore,  these 
numbers  must  match  in  both  the  publication  database  and  the 
author  database. 

Submission  number  is  (XXXXX) :  8 

Author's  last  name  (15  max): 

First  name  and  initial  (12  max): 

Author's  affiliation  (50  max): 

First  address  line  (30  max): 

Second  address  line  (30  max) : 

City  (20  max) : 

State  or  Country  (20  max): 

Zip  code  (XXXXX-XXXX) : 

Telephone  number  (XXX-XXX-XXXX) : 

Hit  PgDn  for  next  author. 

As  before,  the  user  can  skip  the  entry  of  data  for  any 
fields  or  return  to  fields  to  add  more  information  or 
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correct  errors.  After  the  information  for  all  the  authors 


has  been  provided,  the  user  will  be  asked  to  enter  the  title 
of  the  next  article.  At  this  point  the  user  may  continue  to 
enter  information  for  more  articles  or  return  to  the  main 
menu  by  simply  hitting  the  enter  key. 

E.  EDIT  EXISTING  RECORDS 

This  is  the  second  option  on  the  main  menu.  Selection 
of  this  option  presents  the  user  with  three  choices. 

1.  Edit  the  publications  database. 

2.  Edit  area  editors  and  SIG  chairmen  files. 

RETURN  -  exit  this  menu. 

Enter  choice: 

Choices  one  and  two  both  allow  the  user  to  edit  records 
that  have  previously  been  entered.  The  procedure  is 
essentially  the  same  regardless  of  which  database  is 
selected  for  modification.  The  only  significant  difference 
is  that  the  publication  database  uses  the  submission  number 
to  select  the  desired  record  while  the  area  editors  and  SIG 
chairman  database  prompt  the  user  for  the  subject  area 
code.  To  continue  with  our  initial  example,  assume  that 
option  one  is  chosen.  When  asked  for  a  submission  number 
suppose  a  value  of  8  is  entered.  If  the  user  is  uncertain 
about  the  submission  number  that  he  wants  to  edit,  option  3 
of  the  main  menu  should  be  used  to  review  articles  and 
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verify  the  submission  number.  The  system  next  presents  the 
user  with  the  edit  screen  shown  below. 


Submission  number  (XXXXX) :  8 

Title  (100  max) 

Solving  0-1  Integer  Programming  Problems  Arising  from 
Large  Scale  Planning  Models 
Acceptance  code  (X) :  H 

H:  in  review  A:  accepted  R:  rejected 
P:  published  M:  returned  for  modification 

Acceptance/Rejection  date  (MM/DD/YY) :  /  / 

Publication  date  (MM/DD/YY) :  /  / 

Submission  date  (MM/DD/YY) :  06/11/86 

Area  editor  subject  abbreviation  (XXXXX) :  ORP 
DABN  DIS  DNFP  HCSSI  ICS  NRMEE 

OPT  ORP  PSIMM  SIESM  SSPS  SPTA 

Number  of  authors  (X) :  3 

First  subject  category  number  (XXX) :  181 

Second  subject  category  number  (XXX) :  625 

Third  subject  category  number  (XXX) : 

The  first  of  3  author(s)  is:  Johnson 


(Hit  PgDn  to  move  to  author  file) 

This  screen  shows  all  the  information  that  was  initially 
entered  for  this  submission  number.  The  acceptance  code  (H) 
was  added  by  the  system  automatically  at  the  time  the  record 
was  entered.  It  is  assumed  that  when  an  article  is  first 
input  into  the  system,  it  is  the  beginning  of  the  review 
process.  There  should  be  no  concern  if  the  title  displayed 
in  the  edit  screen  splits  a  word  at  the  end  of  a  line.  In 
fact,  a  break  in  a  word  will  occur  frequently  for  titles 
having  76  or  more  characters.  The  title  which  has  a  field 
large  enough  to  hold  100  characters  is  internally  massaged 
to  prevent  breaks  within  words  when  reports  are  generated. 
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The  author  name  displayed  in  this  form  cannot  be  modified. 

It  is  provided  solely  for  reference  purposes.  The  author 
records  can  be  modified  with  the  next  edit  screen. 

One  word  of  warning  about  changing  the  "Number  of 
authors"  field  in  the  publication  database:  there  are  no 
provisions  for  increasing  or  decreasing  the  number  of 
authors  for  a  given  article  or  submission  number  within  the 
edit  module.  It  was  assumed  that  the  number  of  authors 
attributable  to  an  article  would  be  known  when  an  article 
was  first  received.  Should  it  be  necessary  to  reduce  or 
increase  the  number  of  authors,  the  best  method  is  to  delete 
that  submission  number  and  then  re-enter  it.  Some  data  may 
be  lost  for  statistical  reporting  purposes  but  this  should 
be  minimal  provided  that  the  change  is  made  within  a 
relatively  short  period  of  time  after  the  article  was  first 
input  into  the  system. 

When  all  necessary  modifications  have  been  made  to  the 
record,  the  system  will  provide  you  with  the  first  author 
screen . 
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Submission  number  is:  8 

Author's  last  name  (15  max):  Johnson 

First  name  &  initial  (12  max):  Ellis  L. 

Author's  affiliation  (50  max) : 

IBM  Thomas  J.  Watson  Research  Center 
First  address  line  (30  max): 

Second  address  line  (30  max): 

City  (20  max):  Yorktown  Heights 

State  or  Country  (20  max):  New  York 

Zip  code  (XXXXX-XXXX) : 

Telephone  number  ( XXX-XXX-XXXX) : 

(Hit  PgDn  for  next  author.) 

This  screen  will  provide  the  same  information  that  was 
initially  input.  After  the  last  author  record  corresponding 
to  a  given  submission  number  has  been  modified  the  user  will 
be  asked  to  enter  another  submission  number.  Simply  hit 
enter  to  return  to  the  previous  menu  or  enter  another  number 
to  continue  editing. 

F.  REVIEW/PRINT  ENTRIES 

The  third  option  presents  the  user  with  the  following 
menu . 


REVIEW  &  PRINT  OPTIONS  Selection: 

1.  Publications  2.  Authors 

3.  Area  editors  4.  SIG  Chairmen 

5.  Mailing  labels  6.  Sub.  categories 

7.  Toggle  Current/Historical  Status:  C 

8.  Toggle  Screen/Printer  Status:  S 

RETURN  -  Exit  this  menu 
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This  sub-menu  provides  the  options  to  review  or  print 
information  from  all  of  the  indicated  databases. 

Information  can  be  reviewed  or  printed  in  many  different 
forms.  These  will  be  illustrated  shortly. 

A  few  comments  should  be  made  on  some  of  these  options. 
Option  7  and  option  8  are  toggles  to  select  whether  the 
information  reviewed  will  be  on  current  or  historical 
databases  and  whether  the  output  device  will  be  the  monitor 
screen  or  the  printer.  The  defaults  for  data  to  be  reviewed 
are  the  current  databases  represented  by  the  status  letter 
"C" .  Selection  of  option  7  will  change  the  status  to  "H"  for 
historical  database.  The  default  for  the  output  device  is 
the  monitor  screen  represented  by  status  letter  "S". 

Toggling  this  option  will  change  the  status  letter  to  "P" 
for  printer.  Both  of  these  toggles  can  be  changed  anytime 
from  this  menu. 

1 .  Publications 

Selection  of  the  first  option  from  this 
sub-menu  provides  information  on  articles  in  several  different 
forms.  The  specific  selection  criterion  is  chosen  by  indicating 
a  choice  from  the  following  menu. 
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SELECTION  CRITERION  FOR  REVIEWING  ARTICLES 


A.  A  specific  submission  number. 

B.  A  specific  area. 

C.  A  particular  acceptance  status. 

D.  A  subject  category  number. 

E.  All  entries  in  the  database. 

RETURN  -  Exit  this  menu 

State  your  preference: 

All  options  on  this  menu  provide  the  same  information 
for  the  specified  selection  criteria.  To  illustrate, 
suppose  that  option  "A"  is  selected.  The  output  is 
summarized  as  shown  below. 

NUMB:  8  SUB:  06/11/86  Solving  0-1  Integer  Programming 

AREA:  ORP  A/R:  /  /  Problems  Arising  from  Large  Scale 

STAT:  H  PUB:  /  /  Planning  Models 

AUTHOR:  Johnson  (3)  CAT:  181  625 

Hit  any  key  to  continue... Q  to  abort... 

As  can  be  readily  seen,  this  is  the  same  information 
that  was  input  but  formatted  more  compactly  for  more 
efficient  printing  or  reviewing.  Had  the  user  selected 
options  "B",  "C" ,  "D"  or  "E"  the  same  type  of  information 
would  be  displayed  except  that,  possibly,  multiple  records 
would  be  provided.  If  the  screen  was  selected  as  the  output 
device,  four  articles  to  a  screen  will  be  displayed  followed 
by  a  request  to  hit  a  key  to  continue  or  "Q"  to  quit.  This 
is  done  to  prevent  the  information  fron.  scrolling  off  the 
screen  before  the  user  can  review  it.  The  "Q"  option 
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provides  the  user  a  means  to  abort  review  without  waiting 
for  all  entries  to  be  displayed.  If  the  printer  is  the 
selected  output  device,  all  articles  that  meet  the  selection 
criteria  are  printed. 

2 .  Authors 

Selection  of  option  2  will  display  information 
on  the  authors  based  upon  the  choice  selected  from  the  option 
menu  below. 


AUTHOR  SELECTION  MENU 

A.  All  authors  sorted  by  last  name. 

L.  All  authors  for  a  given  last  name. 

N.  All  authors  for  a  given  submission  number. 

RETURN  -  to  exit. 

If  "N"  for  submission  number  is  selected,  the  user  must 
input  the  submission  number  desired.  Below  is  the 
information  for  submission  number  8  entered. 

Johnson,  Ellis  L.  Sub#:  8 

IBM  Thomas  J.  Watson  Research  Center 

Yorktown  Heights,  New  York  99999  555-555-5555 

This  type  of  review  may  be  used  to  find  an  author's 
telephone  number,  address  or  affiliation.  Information  will 
be  displayed  for  every  author  having  the  selected  submission 
number.  Selection  of  the  "A"  option  will  display  all  the 
authors  in  the  database  alphabetically  sorted  by  last  name. 
Option  "L"  will  prompt  the  user  for  a  last  name.  All 
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authors  in  the  database  having  the  given  last  name  will  be 
displayed.  Provisions  are  available  to  allow  the  user  to 
abort  the  screen  display  of  records  at  any  time. 

3 .  Area  Editors/SIG  Chairmen 

Options  3  and  4,  area  editors  and  SIG  chairmen 
provide  the  same  type  of  information.  The  difference  is  only 
that  one  option  is  for  the  administrative  information  on  the 
area  editors  and  the  other  is  information  on  the  chairman  of  the 
special  interest  group  associated  with  that  area.  Though  not 
illustrated  here,  the  information  presented  is  in  the  same  format 
as  for  the  review  of  authors. 

4 .  Mailing  Labels 

This  option  enables  the  user  to  review  on 
screen  or  print  mailing  labels  for  the  area  editors  or  the  SIG 
chairmen.  The  format  is  designed  for  printing  on  standard  one 
wide  3  1/2  by  15/16  inch  labels.  This  size  label  will  accommodate 
five  lines  of  text  with  a  maximum  of  35  characters  per  line.  The 
example  below  illustrates  the  output  of  this  option. 

*********************************** 

*********************************** 

*********************************** 

*********************************** 

*********************************** 

Do  you  want  more  samples?  (Y/N)No 

David  E.  Bell 
Harvard  Business  School 
Soldiers  Field  Hoad 
Boston,  MA  02163 
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The  sample  of  asterisks  enables  the  user  to  properly 
align  the  label  stock  on  the  printer  prior  to  printing  the 
actual  information.  One  may  request  as  many  samples  as 
necessary  to  properly  align  the  printer  forms. 

5 .  Subject  Categories 

Option  6  will  display  either  individual  subject 
category  numbers  with  the  full  title  or  list  all  numbers 
and  titles  to  the  screen  or  printer.  Individual  display  is 
selected  by  subject  category  number.  This  listing 
is  probably  most  useful  as  a  quick  reference  to  an  individual 
category  title. 

G.  CHECK  AGE  OF  PUBLICATIONS 

This  module  allows  the  user  to  determine  how  long 
submitted  articles  have  been  out  for  review  or  how  long  it 
has  been  since  an  article  was  returned  for  modification. 

The  records  can  be  reviewed  for  ages  in  four  different 
intervals  of  time: 

A.  More  than  3  months  but  less  than  6  months. 

B.  More  that  6  months  and  less  than  9  months. 

C.  Over  9  months  but  less  than  one  year. 

D.  Greater  than  one  year. 

The  information  displayed  with  each  of  these  options  is 
exactly  the  same  except  for  the  time  elapsed  since 
submission  or  return  for  modification.  These  times  given  in 
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days  will  fall  within  the  range  of  the  selected  option.  The 
records  will  be  displayed  one  at  a  time  but  the  program  will 
search  the  entire  database  and  display  in  turn  all  of  the 
records  that  meet  the  selected  age.  Following  is  an 
illustration  of  what  the  record  would  look  like. 

Submission  number  is:  4 

Review  area  is:  DABN 

This  is  a  test  of  the  age  checking  program. 

This  document  was  submitted  on  03/07/86. 

Days  elapsed  since  submission:  96 

The  first  of  1  author(s)  is:  Williams 

Press  any  key  to  continue . 

One  further  set  of  options  is  available  for  the  age 
check.  The  check  can  be  conducted  for  the  entire  database 
or  for  a  specified  area  of  review.  The  area  selection  menu 
looks  like  this. 

STATISTICS  GENERATED  FOR  AREA: 


A. 

Decision  Analysis 

B. 

Defense  &  Inti  Sec. 

C. 

Distribution/ Networks 

D. 

Health  Care 

E. 

Computer  Science 

F. 

Natural  Resource  Mgmt 
Energy  &  Environment 

G. 

Optimization 

H  . 

OR  Practice 

I  . 

Production/ Schedul ing/ 
Inventory/Matls  Mgmt 

J. 

Simulation/ Evaluation 
of  Stochastic  Models 

K. 

Social  Sciences 
and  Public  Sector 

L. 

Stoch.  Proc  &  Applicn 

M. 

Aggregate  (ALL) 

RETURN  -  to  exit 
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H.  REPORT  STATISTICS 


This  segment  of  the  system  reports  statistics  on  two 
different  areas.  Each  of  the  two  options  allows  the  user  to 
select,  as  in  the  age-check  module,  a  specific  subject  area 
or  the  entire  database. 

The  first  option  will  provide  descriptive  statistics 
from  the  publications  database.  These  statistics  include 
the  count  of  the  number  of  articles  by  acceptance  code  and 
percentage  of  the  total.  Sample  output  generated  with  this 
option  is  presented  below. 

Statistics  for  Publications  in  ALL 
PUBLICATIONS  STATISTICS 


FREQUENCY 

PER  CENT 

HOLDING 

31 

79.4 

ACCEPTED 

3 

7.6 

REJECTED 

3 

7.6 

PUBLISHED 

0 

o 

o 

MODIFICATION 

2 

5.1 

TOTAL 

39 

100.0 

The  second  option  will  provide  in  days  the  mean  and 
standard  deviation  of  the  time  required  to  accept,  reject, 
or  publish  articles.  The  overall  acceptance  rate  is  also 
provided.  Sample  output  is  given  below. 
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SUMMARY  IN  DAYS  for  ALL 


Mean 


Submission  to  acceptance  365.0 

Submission  to  rejection  345.0 

Submission  to  accept/reject  355.0 

Submission  to  publication  ****. 

Acceptance  to  publication  ****. 

Modification  time  100.0 


StdDev 
0.0 
290.6 
184.1 
*  ★  * 

*  *  *  # 

20.0 


Accepted 
Rejected 
Published 
Total 
If 


QUANTITY 

3 

3 

0 

6 


PERCENTAGE 

50.00 

50.00 

0.00 

100.00 


there  are  no  articles  for  a 


Acceptance 

Rate 

50.0% 

specific  acceptance  code, 


the  fields  in  the  summary  statistics  will  be  filled  with 


asterisks.  For  the  quantity  and  percentage  columns  the 
absence  of  articles  meeting  a  specific  acceptance  code  is 


reflected  by  zeros. 


I.  DELETE/ARCHIVE  RECORDS 


Three  options  are  available  in  this  module  for  deleting 
and  archiving  records  no  longer  needed  in  the  active 
databases.  The  first  option  will  allow  the  user  to  delete 
an  article  and  all  relevant  authors  by  inserting  an 
article's  submission  number.  The  article  is  displayed  for 
the  user's  approval  before  it  is  deleted.  The  user  is  asked 
to  confirm  the  deletion  of  the  record. 


Option  two  allows  the  user  to  archive  an  article  before 
deleting  it.  Selection  is  again  based  on  submission 
number.  As  before,  the  user  is  required  to  verify  the 
record  that  will  be  archived  and  deleted. 

The  third  option  is  designed  to  archive  and  delete  all 
articles  that  have  an  acceptance  code  "P”  (published) .  This 
option  will  probably  be  run  at  infrequent  intervals  to 
simply  reduce  the  size  of  the  active  databases.  A  warning 
is  issued  prior  to  execution  of  this  program  that  no 
published  articles  will  remain  in  the  database.  A  potential 
impact  of  running  this  option  is  that  any  statistics 
generated  after  this  option  will  not  reflect  anything  about 
articles  that  were  published. 

Upon  termination  of  any  of  these  three  options,  a 
message  will  be  displayed  alerting  the  user  that  files  are 
being  packed  and  that  the  process  will  take  some  time.  This 
will  occur  even  though  the  user  may  have  decided  to  abort 
deleting  or  archiving.  This  will  cause  no  problems  since 
packing  a  file  removes  only  the  records  that  have  been 
marked  for  deletion.  If  no  records  were  requested  for 
deletion  then  packing  will  not  cause  any  removals. 

J.  EXIT  TO  DOS  /  EXIT  TO  DBASE 

The  last  two  selections  on  the  main  menu — X  and 
RETURN — are  the  termination  of  execution  of  this  management 
information  system.  Exiting  to  DOS  (X)  takes  the  user  out 


of  the  management  information  system  and  out  of  dBaselll, 
while  exiting  to  dBase — by  hitting  RETURN- -leaves  the 
environment  of  the  management  information  system  and  places 
the  user  at  the  dot  prompt  in  dBase. 

K.  USE  OF  DBASE  DOT  PROMPT 

For  those  managers  familiar  with  the  dBaselll  software, 
it  is  advised  that  the  database  files  provided  on  the  disk 
not  be  modified  from  the  dot  prompt.  Programs  in  the 
management  information  system  check  what  items  are  being 
edited  or  added.  Some  of  these  operations  are  critical  to 
the  reporting  of  correct  and  valid  statistics.  Average 
times  for  the  various  review  and  processing  stages  will  not 
be  accurately  reflected  if  acceptance  status  codes  are 
modified  outside  of  the  menu  environment.  Time  that  an 
article  is  returned  for  modification  will  not  be  captured  if 
the  acceptance  status  code  of  "M"  is  changed  from  the  dot 
prompt.  One  exception  to  this  would  be  to  delete  erroneous 
entries  that  must  re-enter  immediately.  Should  this  be 
necessary,  the  "BROWSE"  command  can  be  used  from  the  dot 
prompt.  The  operator  must  assure  that  the  correct  database 
and  indices  are  present  prior  to  issueing  the  browse 
command.  For  the  publications  database  the  command  to  enter 
prior  to  browse  is  "use  TPUB  index  TPUBSBN,  TPUBARSB, 

TPUBACC " .  The  corresponding  command  for  the  authors  database 
is  "use  TAUTH  index  TAUTHSBN ,  TATNAME". 


The  preferred  method  or  correcting  an  error  is  to  delete 
that  entire  submission  number  and  re-enter  the  information. 


IV.  CONCLUSIONS 


This  project  began  by  investigating  the  feasibility  of 
developing  a  stand  alone  management  information  system  that 
would  assist  the  mid-level  manager  in  planning,  monitoring 
and  controlling  workload  along  with  evaluating  the 
operational  performance  within  available  resources. 
Literature  research  of  database  development  and  available 
commercial  software  for  micro-computers  indicated  that  such 
a  small  scale  management  information  system  was  feasible. 

The  dBaselll  software  package  by  Ashton-Tate  was 
selected  as  being  appropriate  for  the  development  of  this 
system.  The  necessary  databases  and  programs  were  developed 
around  the  Operations  Research  Society  of  America’s  three 
tiered  review  process  for  accepting  and  publishing  articles 
in  their  bimonthly  journal.  The  total  system  that  was 
developed  can  be  stored  on  one  floppy  disk  having  a  total 
storage  capacity  of  360  kilobytes.  A  similar  system  could 
most  likely  be  developed  using  other  commercially  available 
software.  However,  the  storage  and  hardware  requirements  of 
other  software  were  not  ascertained.  This  would  require 
designing  the  entire  system  with  whate/er  other  software 
appeared  to  be  appropriate. 
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The  dBaselll  software  will  operate  on  most 
micro-computers  using  the  Microsoft  Disk  Operating  System 
(MS-DOS) .  This  type  of  computer  is  currently  in  DoD 
inventory  and  there  are  no  reasons  to  believe  that  this 
hardware  will  become  outdated  in  the  foreseeable  future. 

Since  micro-computers  are  stand  alone  units,  almost  any 
DoD  element  could  tailor  this  type  of  management  information 
system  to  their  particular  operation.  The  dBaselll  software 
provides  great  flexibility  for  any  future  needed 
modifications  to  the  system  programs.  The  modular  design  of 
the  system  would  not  necessitate  complete  revision  of  all 
the  programs  currently  implemented.  It  is  quite  likely  that 
required  modifications  would  affect  only  parts  of  some 
programs . 

Although  the  system  development  was  based  upon  the  ORSA 
scenario,  a  similar  management  information  system  could  be 
developed  for  any  operation  that  has  time  critical  functions 
to  perform,  monitor  and  evaluate.  This  type  of  system  is 
especially  suited  to  control  workload  and  program  execution 
when  responsibility  for  accomplishing  sub-tasks  of  any 
project  lie  outside  the  immediate  authority  of  the 
responsible  manager. 
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APPENDIX  B  SYSTEM  PROGRAMS  &  FILES 


*  TAGENNU.PRS 

*  This  prograi  al Toms  the  user  to  select  either  age  check  on 
i  the  articles  that  are  still  in  review  or  articles  that 

*  have  been  returned  for  lodification. 

do  while  .1. 
clear 

store  ’  '  to  NCHOICE 

8  5,5  say  ’1.  Check  the  age  of  articles  still  in  the  ’  +  ; 

’  revie*  process.’ 

8  7,5  say  ’2.  Check  the  age  of  articles  that  have  been  ’  +  : 

'returned  for  lodification.’ 

8  9,5  say  ’RETURN  -  to  exit  this  ienu.' 

8  12,5  say  ’Enter  your  selection:  ’  get  NCHOICE  picture  T 
read 

if  .not.  NCHOICE  $  ’  12’ 
loop 
endif 

if  (ICHOICE  =  '  ’ 
exit 
endif 

do  case 

case  NCHOICE  =  T 
do  THOLDAGE 
case  NCHOICE  =  ’2’ 
do  TNODAGE 
endcase  NCHOICE 

NCHOICE  =  ’  ' 
enddo  NCHOICE 
return 


*  TALL5TAT.PRG 

*  Th is  prograi  calculates  the  average  ti»e  froi:  subiission  to  acceptance, 

*  subitssion  to  publication,  acceptance  to  publication,  subitssion  to 

*  rejection,  and  subiisston  to  acceptance  or  rejection.  The  count  and 

*  percentage  of  the  total  for  accepted,  rejected  and  published  articles 
»  are  also  provided. 

set  talk  off 
clear  all 

use  TPU8  index  1PU8ARSB 
store  ’  ’  to  (ICHfllCE 

do  while  upper(ACHOICE)  i  ’  ABC0EF6HI JKLfl' 
store  ’  ’  to  ACHflICE,  ADEVICE 
store  I  to  ASU8ACC,  AACCPUB,  ASU8PUB.  ASUBREJ 
store  I  to  ACOUNTACC,  ACOliHTREJ,  ACflUHTPUB,  ACOflNIAflD,  WCQUHTTOT 
store  I  to  APROPACC.  APROPREJ,  APROPPUB,  APROPTQI,  AAODTIAE 
store  I  to  AStIBACCSO,  AACCPU8S8,  ASU8PU8S8,  ASU8REJSB,  ASUBACRJSB 
store  I  to  AA0DHAES8,  AS8ACRJ0EV 
store  I  to  ASUBACCDEV,  ASU8REJ0EV,  ASUBPUBOEV,  AACCPUBDEV 
go  top 
clear 

set  foriat  to  listarea 
read 

close  foriat 

if  ACHflICE  =  ’  ’ 
exit 

endif  ACHOICE 

if  .not.  upper(ACHBICE)  f  'ABCDEfSHIJKlA' 
clear 

set  color  to  +»,+» 

8  15,21  say  'Invalid  selection . .....' 

8  14,24  say  ’Press  any  key  to  try  again.' 
set  color  to  »,+» 

»ait  " 
loop 

endif  ACHflICE  .not.  ABCDEFGHIJKLorA 
clear 

I  2,14  say  'Do  you  want  output  to  the  (S)creen  '  +  ; 

’or  (P)rinter?  '  get  AOEVICE  picture  ’a’ 
read 
clear 

8  2,15  say  ’Processing  the  data  file.  Please  be  patient..." 
if  upper(AOEVICE)  *  T 
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set  device  to  print 
end  if  ADEVICE  =  T 

if  upper fWCHOICE)  =  'A' 
store  'DA8A'  to  AAREA 
endif  ACHOICE  =  DABli 

if  upper CRCHOICE)  =  ' B ' 
store  'DIS'  to  AAREA 
endif  HCH0ICE  =  DIS 

if  upper ( BCHOICE )  =  ’C’ 
store  'DNFP'  to  AAREA 
endif  ACHOICE  =  DNFP 

if  upper(ACHDICE)  =  ’D' 
store  'HCSSI'  to  AAREA 
endif  ACHOICE  =  HCSSI 


if  upper(ACHOICE)  :  'E' 
store  'ICS'  to  AAREA 
endif  ACHOICE  =  ICS 

if  upper ( NCHOICE )  =  'F' 
store  ’NRAEE’  to  AAREA 
endif  ACHOICE  =  NRAEE 

if  upper (HCHOICE)  =  'G' 
store  'OPF'  to  AAREA 
endif  ACHOICE  =  OPT 

if  upper(ACHOICE)  -  'H' 
store  ' ORP '  to  AAREA 
endif  ACHOICE  -  ORP 

if  upper (NCHOICE)  =  T 
store  'PSIAA'  to  AAREA 
endif  ACHOICE  =  PSIAA 

if  upper(ACHOICE)  =  ' J' 
store  'SIESA'  to  AAREA 
endif  ACHOICE  =  SIESA 

if  upper (DCHDICE)  =  T 
store  'SSPS'  to  AAREA 
endif  ACHOICE  =  SSPS 
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if  upper ( flCHOICE )  =  ’L’ 
store  ' SPT A '  to  NAREA 
end  if  ((CHOICE  -  SPTA 

if  upperlfICHOICEl  =  T 
store  ’ALL’  to  ItAREA 
end  if  (ICHOICE  *  ALL 

if  upper (ftAREA )  -  ’ALL' 
set  filter  to 
else 

set  filter  to  AREA  =  (IAREA 
end  if  (IAREA  =  ’ALL' 

count  for  ACCCOOE  --  ’A’  to  (ICOUNTACC 

count  for  ACCCOOE  =  ' R '  to  flCQUHIREJ 

count  for  ACCCODE  =  'P’  to  flCOUNTPUB 

count  for  (lODflflE  >  I  to  flCOOfffRQO 


30  top 


do  vh lie  .not.  eof() 

*  Read  records  based  upon  acceptance  code  and  store 
i  t me  to  calculate  leans  and  standard  deviations 
store  (KtOOriflE  ♦  (tODfKIE  to  (MODIKIE 
store  RRODIIRESfl  +  IMDTME  ft  2  to  (1(100 1 1  (IE  SO 
if  ACCCOOE  =  'A' 

store  (ISUBACC  +  (ACRJDATE-SUBDAIE-AQDIME)  to  (ISUBACC 
store  ASUBACCSO  +  (ACRJDATE-SUBOATE-ROOTIHE)  ft  2  to  ASUBACCSQ 
endif  ACCCODE  =  ’A’ 

if  ACCCOOE  =  T 

store  HSOBREJ  t  (ACRJDAIE-S08DATE-(I007I(IE)  to  ItSUBREJ 
store  (ISU8REJS0  ♦  ( ACR JDATE-SUBOATE-flOOT IflE )  ft  2  to  RSU8REJS9 
endif  ACCCODE  =  ’R' 

if  ACCCODE  =  'P' 

store  (ISUBPUB  t  (PUBDAlE-SUBDAlE-flODTIftE)  to  (ISOBPUB 
store  RStIBPUBSfl  +  (PUBOATE-S(JBDATE-(I0DII(!E)  ft  2  to  HS08PU8S8 
store  IIACCPUB  +  (PU8DA7E-ACRJDATE-W0DT IBE)  to  OACCPUB 
store  RACCPUBS8  ♦  ( PUBOATE-ACR JDATE-ROOTIftE )  it  2  to  RACCPUBSQ 
endif  ACCCODE  =  ’P’ 


skip 

enddo  eofO 
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5  Calculate  average  tiles  for  various  processes, 
store  ASUBACC  /  RCOUNTACC  to  AAVESUBACC 
store  ASUBREJ  /  fICOUMTREJ  to  AAVESU8REJ 
store  ASUBPU8  /  flCOUHTPUB  to  AAVESUtPUB 
store  AACCPUB  /  ACOUNTPUB  to  AAVEACCPU8 
store  (ASUBACC  +  ASUBREJ)  /  (IICOUNTACC+BCOURIREJ)  to  AAUEACCREJ 
store  ACOUNTACC  +  ACOUNTREJ  +  ACOUNTPUB  to  ACOUHTTOT 
store  AAODTIAE  /  ACOUNTAOD  to  AAVEA0OTA 
*  Calculate  percentages  for  each  category, 
store  ACOUNTACC  /  ACOUATTOT  *  III  to  APROPACC 

store  BCOUMTRE J  /  ACOUNTTOT  *  IBB  to  APROPREJ 

store  ACOUNTPUB  /  ACOUHTTOT  f  III  to  APROPPUB 

store  (IPROPACC  ♦  APROPPUB  to  AACCRATE 
store  (IPROPACC  ♦  APROPREJ  ♦  APROPPUB  to  (IPRQPTOI 
store  ASUBACCSfi  +  ASU8RE JS8  to  ASU8ACRJS8 
f  Calculate  standard  deviations  using  the  coiputat ional  equation, 
store  sqrtd  (ACOUNTACC  *  ASUBACCSS)  -  (ASUBACC  «  2)»  /  J 
( ACOUNTACC  H  2  -  ACOUNTACC))  to  ASUBACCOEU 
store  sqrt<  < (ACOUNTREJ  *  ASUBREJS8)  -  (ASUBREJ  »  2))  /  J 
(ACOUNTREJ  H  2  -  ACOUNTREJ))  to  ASUBRE JDEV 
store  sqrtd (ACOUNIPUB  *  ASUBPUBSB)  -  (ASUBPUB  **  2))  /  ! 

(ACOUNIPUB  h  2  -  ACOUNTPUB) )  to  ASUBPU6DEV 
store  sqrtd (ACOUNTPUB  f  AACCPUBSB)  -  (AACCPUB  if  2)1  /  ! 

(ACOUAfPlIB  if  2  -  ACOUNTPUB ) )  to  AACCPUBDEV 
store  sqrtd  ((ACOUNTACC  ♦  ACOUNTREJ)  f  ASUBACRJSO)  -  dASUBACC  + 
ASU8REJ)  «  2))  /  ((ACOUNTACC  ♦  ACOUNTREJ)  H  2  - 
(ACOUNTACC  +  ACOUNTREJ)))  to  ASBACR JDEV 
store  sqrtd (ACOUNTAOD  *  AAOOTIAESO)  -  (AAOOTIAE  if  2))  /  I 
(ACOUNTAOD  ff  2  -  ACOUNTAOD))  to  AAODTIADEV 

clear 

8  2,26  say  “SUAAART  IN  DATS  for" 

I  2,(7  say  AAREA 
8  MB  say  "Aean  StdDev" 

8  5,16  say  "Subiission  to  acceptance" 

8  5,(7  say  AAUESUBACC  picture  ’9999.9’ 

8  5,58  say  ASUBACCDEV  picture  ’999.9’ 

8  6,16  say  "Subiission  to  rejection" 

8  6,(7  say  AAVESUBREJ  picture  '9999.9' 

8  6,58  say  ASUBREJDEV  picture  ’999.9’ 

8  7,16  say  “Subiission  to  accept/reject" 

8  7,(7  say  AAVEACCREJ  picture  '9999.9' 

8  7,58  say  ASBACRJDEV  picture  '999.9' 

8  8.16  say  'Subiission  to  publication" 

8  8,(7  say  AAVESUBPU8  picture  '9999.9' 

8  8,58  say  ASU8PU8DEV  picture  ’999.9’ 
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8  9.16  say  ‘Acceptance  to  publication* 

8  9,67  say  HAVEACCPU8  picture  '9999.9' 

*  9,58  say  RACCPUBDEV  picture  '999.9’ 

8  11,16  say  “Hodif ication  ti»e" 

8  11,67  say  MVENDTI  picture  ’9999.9’ 

8  11,58  say  IMODTIRDEV  picture  ’999.9’ 

8  13,27  say  "flOAHTIIT  PERCENTAGE* 

8  15,12  say  ‘Accepted” 

8  15,31  say  flCOUNTACC  picture  ’9999’ 

8  15,39  say  IIPROPACC  picture  '999.99' 

8  16,52  say  ‘Acceptance* 

8  17,12  say  ‘Rejected" 

8  17,31  say  RCOUNTREJ  picture  ’9999’ 

8  17,39  say  (IPROPREJ  picture  *999.99’ 

8  17,55  say  ‘Rate* 

8  19,12  say  ‘Published* 

8  19,31  say  flCOUMPliS  picture  ’9999’ 

8  19,39  say  (IPROPPUB  picture  '999.99' 

8  19,56  say  (IACCRATE  picture  '999.9' 

8  19,59  say  T 
8  21,16  say  "Total* 

8  21,29  say  NCOUNTTOT  picture  ’99999' 

8  21,39  say  RPRQPTOT  picture  '999.99' 

if  upper(flDEVICE)  =  ’P' 
clear 
eject 

set  device  to  screen  , 

8  22,15  say  'Printing  coipleted.  Press  any  key  to  exit. 

uait  " 
else 

8  23,1  clear 

8  26,12  say  ’Press  any  key  to  continue!' 
nit  " 

end  if  (IDEV1CE  =  T 

enddo  NCHOICE  0  T 
close  databases 
return 


if  TARCDEL.PRG 

*  This  program  dill  archive  I  delete  records  by  submission  number, 
select  1 

use  TPUB  index  TPtIBSBN,  TPUBARSB,  TPU8ACC 
select  2 

use  TAUTH  index  TAUTHSBN,  TATNAHE 

do  uhile  .1. 
clear 

select  TPUB 

store  ’  '  to  8ARCSBN 

B  2,11  say  ’Submission  number  to  archive  t  delete  (RETURN  to  quit):  ’  ; 

get  (IARCSBN  picture  '99999' 
read 

if  f!ARCc :  N  =  ' 
exit 

endif  (IARCSBN  =  ' 

seek  val(HARCSBN) 

if  eof() 
clear 

set  color  to  tm,*m 

B  15,21  say  ’Submission  number  ’  ♦  trim(RARCSBN)  +  ’  not  in  database.’ 
B  16,21  say  ’Press  any  key  to  continue.' 
mait  ” 

set  color  to  m,+m 

go  top 

loop 

endif  eof() 

set  relation  to  SUBNUIIB  into  TAUTH 
store  TAUTH  ->  LASTNAflE  to  TFIRSTAUTH 
set  relation  to 
clear 

B  5,12  say  "The  submission  number  of  this  record  is:' 

B  5,54  say  SUBNUH6 
B  6,12  say  "The  status  code  is:* 

B  6,32  say  ACCCODE 

B  7,12  say  'The  article  mas  assigned  to  area:* 

B  7,46  say  AREA 

B  8,12  say  'It  mas  submitted  on:' 

B  8,33  say  SUBDATE 

B  9,12  say  'The  acceptance  or  rejection  date  mas:* 

B  9,51  say  ACRJDATE 


g  If, 12  say  'The  article  Mas  published  on:' 
g  If, 42  say  PUBDATE 

g  11,12  say  ’The  assigned  subject  category  nuibers  are:" 
g  11.55  say  CATNUflBl 
g  12,55  say  CATMUflB2 
g  13,55  say  CATH(JftB3 

g  14,12  say  "This  article  mss  in  lodification  for  (days):1 
g  14,57  say  IIODTIflE 

g  15,12  say  'The  first  of  '  +  str < AUTHORS, 1)  +  ’  author(s)  is:’ 
g  15,55  say  TFIRSTAUTH 
g  16,12  say  'Title:' 
g  16,19  say  TITLE 
g  16, f 

set  color  to  +»,+« 

accept  'Is  th is  the  record  you  uant  to  archive/delete  (V/N)?  '  to 
set  color  to  u,+» 

if  upper(HDELETE)  =  T 
close  databases 

use  TPUBHST  index  TPHSTSBN,  TPHARSB 
append  froi  TPUB  for  SUBHUHB  =  val (HARCSBN) 
use  TPUB  index  TPUBSBH,  TPUBARSB,  TPUBACC 
delete  for  SUBNUfIB  =  val(HARCSBH) 
use  TAUTHHST  index  TAHSTSBH,  THATHAHE 
append  froi  TAUTH  for  SUBHUHB  -  val(HARCSBH) 
use  TAUTH  index  TAU7HSBH,  TATHAHE 
delete  all  for  SUBNUFIB  =  val(HARCSBN) 
close  databases 
select  1 

use  TPUB  index  TPU8S8N,  TPUBARS8,  TPUBACC 
select  2 

use  TAUIH  index  TAUTHSBH,  1ATHAHE 
else 
loop 

endif  HOELETE  =  T 
enddo 

close  databases 
clear 

g  2,12  say  'Packing  files . Hay  take  a  uhile . 00  HOT  INTERRUPT’ 

use  TPUB  index  TPUBSBH,  TPUBARSB,  TPUBACC 
pack 

use  TAUTH  index  TAUTHSBN,  TATHAHE 
pack 

clear  all 
return 


HOELETE 
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*  TARCDELP.PRG 

1  This  progm  nil!  archive  I  delete  all  records  that  have  been  published. 
*  That  ts  —  acceptance  code  (ACCCODE)  =  'P ' . 
set  deleted  on 
clear 

use  TPU6  index  TPUBACC,  TPUBSBN,  TPU8ARSS 
store  '  ’  to  RGKAY 

8  2, if  say  ’All  records  that  have  an  acceptance  code  of  published  (P)’ 

§  3, If  say  'uill  be  archived  and  deleted  froi  the  tain  data  base.’ 
set  color  to  +e,a» 

?  5,11  say  'Do  you  really  uant  to  do  this  (Y/N)?  '  get  ROKAY  picture  ’a' 
read 

set  color  to  M» 
if  upper(ROKAY)  0  T 
return 

endif  ROkAY  .not.  T 
clear 

set  color  to  +u,+e 

i  2,21  say  'Please  be  patient . ’ 

?  3,21  say  'This  lay  take  a  uhile . 

set  color  to  Mu 

if  upper (NGKAY)  =  ’Y’ 

use  TPUB  index  TPUBACC,  TPU8SBN,  1PUBARSB 
do  uhile  .not.  eof() 
locate  for  ACCCODE  =  ’P’ 
store  SU:  1UDB  to  RSUBNURB 

if  SUBNURB  *  I 
exit 

endif  SUBNURB  »  » 
close  databases 

use  TPUBHST  index  TPHSTSBN,  TPHARSB 
append  froi  TPUB  for  SUBNURB  -  RSUBNURB 
use  TPUB  index  TPUBSBN,  TPUBARSB,  TPUBACC 
delete  for  SUBNURB  =  RSUBNURB 
use  TAUTHHST  index  TAHSTSBH,  THATNARE 
append  froi  TAUTH  for  SUBNURB  =  RSUBNURB 
use  TAUTH  index  TAUTHSBN,  TATNARE 
delete  ail  for  SUBNURB  =  RSUBNURB 
use  TPUB  index  TPUBACC,  TPUBSBN,  TPUBARSB 
enddo  .not.  eof() 

endif  ROKAY  =  T 
pack 

use  TAUTH  index  TAUTHSBN,  TATNARE 
pack 

clear  all 

set  deleted  off 

return 
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*  fOELETE.PRS 

*  This  lodule  ihile  delete  single  records  in  the  publication  data 

i  base  and  all  records  in  the  author  data  base  for  a  given  subiission 

a  nuiber  (SUBHUA6) 

clear 

§  3,19  say  'If  you  are  not  certain  about  the  subiission' 

8  4,19  say  ‘nuiber,  you  lay  want  to  exit  this  prograi  and' 

8  5,19  say  “select  option  3  (review)  of  the  lain  ienu  to" 

8  6,19  say  “verify  the  nuibers  of  the  records  that  you" 

8  7,19  say  *iant  to  delete  froi  the  data  base." 
select  l 

use  TPUB  index  TPUBS8H,  TPUBARSB ,  TPUBACt 
select  2 

use  TAU1H  index  TAUTHSBN,  TAIHABE 

do  ihile  .1. 
clear 

select  TPUB 

store  '  '  to  flDELSBH 

8  2,11  say  'Enter  subiission  nuiber  to  delete  (RETURN  to  quit): 

get  NDELSBN  picture  '99999' 
read 

if  ADELSBN  -  ’ 
exit 

end  if  flOELSBN  *  ' 

seek  val(flOELSBIf) 

if  eof() 
clear 

set  color  to  +M* 

8  15,21  say  'Subiission  nuiber  ’  ♦  trii(ADELSBN)  ♦  ’  not  found.’ 
8  lo,2l  say  'Press  any  key  to  try  a  new  nuiber.' 
wa  it” 
clear 

set  color  to  M* 
loop 

endif  eof() 

set  relation  to  SUBNUflB  into  TAUTH 

store  TAUTH  ->  LASTNAAE  to  TFIRSTAUTH 

set  relation  to 

store  recnoO  to  ftOELREC 

clear 

8  5,12  say  “The  subiission  nuiber  of  this  record  is:’ 
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B  5,54  say  SUBNURB 
B  6,12  say  'The  status  code  is:“ 

§  6,32  say  ACCCQOE 

§  7,12  say  “The  article  «as  assigned  to  area:" 

I  /, 46  say  AREA 

B  8,12  say  "It  «as  subutted  on:’ 

B  8,25  say  SUBOATE 

B  9,12  say  "The  acceptance  or  rejection  date  »as:“ 

B  9,51  say  ACRJ0ATE 

B  11,12  say  'The  article  tas  published  on:’ 

B  11,42  say  PU80ATE 

B  11,12  say  'The  assigned  subject  category  nuibers  are:" 

B  11,55  say  CATNUR81 
B  12,55  say  CATNURB2 
B  13,55  say  CATNUPIB3 

B  14,12  say  “This  article  uas  in  lodification  for  (days):" 

B  14,57  say  HOOT  IRE 

B  15,12  say  'The  first  of  ’  +  str(AUTHORS,l)  +  ’  author(s)  is:’ 

B  15,55  say  TFIRSTAUTH 
B  16,12  say  ’Title:" 

B  16,19  say  TITLE 
B  18,1 

set  color  to  +*,+• 

accept  'Is  this  the  record  you  uant  to  delete  (T/N)?  ’  to  RDELETE 
set  color  to  »,♦* 

if  upper(RDELETE)  =  T 
go  top 
go  RDELREC 
delete 
select  TAUTH 

delete  all  for  SUBNURB  =  val(RDELSBN) 
end  if  RDELETE  =  T 

enddo  ROREDELETE  =  .1. 

clear 

B  2,12  say  'Packing  files... ..Ray  take  a  »hile.....D0  NOT  INTERRUPT' 

select  TPUB 

pack 

select  TAUTH 

pack 

clear  all 
return 
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i  TDELANU.PRG 

*  Aenu  to  control  deletions  and  archiving  records  to  the  historical  files 

store  '  ’  to  ADELCHOICE 

clear 

do  ihile  (I0ELCH01CE  <  *4' 
clear 

8  4,29  say  *1.  Delete  for  a  specific" 

8  9,33  say  "subiission  nuiber." 

8  11,29  say  “2.  Archive  t  delete  for  a" 

8  12,33  say  "subiission  nuaber." 

8  H,29  say  "3.  Archive  t  delete  all  records" 

8  13,33  say  ‘that  have  been  published," 

8  16,33  say  ‘Acceptance  code  =  P." 

8  18,29  say  “RETURM  -  to  exit  this  aenu." 

8  21,33  say  "Enter  selection:’ 

8  28,51  get  MLCHQICE  picture  T 
read 

if  ADELCHOICE  *  ’  ’ 
exit 

endif  ADELCHOICE 


do  case 

case  ADELCHOICE  =  T 
do  [DELETE 

case  ADELCHOICE  =  '2' 
do  MCDEL 

case  ADELCHOICE  =  ’3’ 
do  TARCDELP 
endcase  (I0ELCH01CE 

(I0ELCH0ICE  =  '  ' 
enddo 
clear  all 
return 
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v  TC{MT  pog 

i  Jrtgrn  uses  the  CHW6E  co-and  to  edit  existing  records, 
set  talk  off 

cftipf4  i 

uLlPUS  index  TPU6S8H,  TPISftCC,  TfiMSB 
select  2 

use  TA01H  index  TAUTHS8N,  TAIHAAE 

store  .1.  to  IWORECHl 

store  ’  ’  to  flACCCOOE,  IWCGCflOE 

store  I  to  NWOIIlt 

clear 

do  eh  lie  IfflOREEDll 
select  m 

« 2,11  say  ’Enter  subeission  nuiber  to  edit  (return  to  quit).  . 

get  ftSUBWM  picture  'W f 
read 

if  RSII8IM  -  ’  ’ 

clear  all 

r...  ,  t 

CmH* 

endif 

seek  valinSUeHIW) 


if  eofl) 
clear 

*5,2*  Subeission  *  ♦  triiUGUUMl)  *  *  t»Un  database." 

p  say  *  Press  any  key  to  enter  a  nee  nueber." 

eait  "* 

set  color  to  »,*e 
clear 


loop 

endif  eofO 


set  relation  to  siimab  into  1MJTH 
store  TftlTH  -)  LftSTHftflE  to  TFIRSTftUTH 
set  relation  to 


if  ACCCOOE  -- 

store  ACCCOOE  to  MCCCOOE 
store  IWOTIlt  to  IWOUAE 
endif  ACCCOOE  =  'A' 
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set  fornt  to  PUBEDIT 

change  fields  TITLE,  SUNUM,  AUTHORS,  SJ6MTE,  CATMW1,  CATNUH82,  CATNUHB3,  AREA,  ACCCQOE,  TOME,  PU6DATE  for  SUBNUHB  =  vaUHSUBNUHB 

) 

close  fonat 
seek  val(ffiUMM) 
store  ACCCOOE  to  HRACCCODE 

if  HACCCOOE  --  'r  .and.  HRACCCODE  0 
store  (dateO-ACRJOATE)  to  AAOOTiHE 
store  IMDTIIE  ♦  HAOOTIHE  to  IHODTIIE 
replace  H0DT1HE  Kith  IMDTIIE  for  SIMM  =  vallHSIMW) 
store  ’  '  to  HACCCOOE,  HRACCC00E 
store  f  to  HIK8T1HE 
release  MDOTIflE 

end  if  HACCCOOE  =  W  .and.  HRACCCODE  0 

store  ’’  to  HACCCOOE,  HRACCCODE 
release  HHOOTIHE 
select  TAUTH 
set  fonat  to  AUTHEDIT 

change  fields  SIMM,  LASTHAHE,  F1RSTNAHE,  AFFILIATE,  AD0RESS1,  A0DRESS2,  CUT,  STATE,  ZIP,  PHOHE  for  SUBRUR8  =  vaKHSURNUHP) 

close  fonat 

clear 

enddo  HHOREEDIT 

clear  all 

return 
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*  TED1T1WU.PR6  1L  tl.  .. 

*  (tew  for  edtttnq  either  the  piAUcations  or  the 

*  area  editors/SIS  cha trier  files, 
do  ihile  ,T. 

f  (lenu  Kill  be  redisplayed  unless  3  is  chosen 
clear 

ICN01CE  =  '  ’ 

%  5,18  say  '1.  Edit  the  publications  database.’ 

*  7,18  say  '2.  Edit  area  editors  and  SIG  chainen  files.’ 
t  9,15  say  ’RETURN  -  exit  this  ienu.’ 
i  11,18  say  'Enter  choice'.  '  get  (CHOICE 
read 
da  case 

case  (CHOICE  =  ’1’ 
do  l EDIT 

case  (CHOICE  =  ’2’ 
do  TEDSIS 
case  (CHOICE  =  ’  ’ 
exit 

endcase  (CHOICE 
enddo 


tTEDSIS.PRS 

a  This  prograa  allows  editing  of  the  area  editor  and  S2G  chairtan 
a  infornation  based  upon  selected  area, 
use  TAREA  index  TAREA2 
clear 

do  while  .T. 
clear 

store  ’  'to  HARE  A 
store  '  '  to  fCDSIS 

8  9,11  say  'Uhich  area  would  you  like  to  edit  tRETURff  to  quit)7 
get  AAREA  picture  ’!!!!!' 

8  11,11  say  ’DABA  D1S  DNfP  HCSS1  ICS  HAAEE’ 

8 12,11  say 'OPT  ORP  PSIAA  SIESfl  SSPS  SPTA' 

read 

if  KARLA  =  ’  ’ 

exit 
endif 

8  16,21  say  'Do  you  uant  to  edit  inforwtion  for  the’ 

8  15,21  say  'area  editor  (E)  or  SIG  chairian  (SI?  '  get  AEDSI6  picture  'A’ 
read 

if  .not.  upper(AAREA)  t  'DARN  /DIS  /DNFP  /HCSSI/ICS  /RRAEE’  * 

’OPT  /ORP  /PSIAA/SIESA/SSPS  /SPTA  ’ 

clear 

set  color  to  +»,+* 

8  11,21  say  ’Invalid  area  selection  a  '  a  AAREA  +  ’  a' 

8  11,21  say  'Press  any  key  to  try  again.’ 
set  color  to  »,+» 
wait  " 
loop 
endif 

if  .not.  upper(AEDSIG)  $  ’ES' 
clear 

8  15,21  say  'Invalid  choice  a  ’  +  AEDSIG  +  ; 

'  a  for  information  to  edit.' 

8  16, 2i  say  'Press  any  key  to  retry.' 

Hit  " 

loop 

endif 

if  upper(AEDS16)  =  'E' 
clear 

set  fornt  to  TED1T0R 
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change  fields  AREA,  TITLE,  LASTNAflE,  FlRSTNA/tf,  AFFILIATE,  AD0RESS1,  ADDRESS2,  CITY,  STATE,  ZIP,  PHONE  for  AREA  =  RAREA 

close  for»at 
endif 

if  upper(fCDSIS)  =  'S' 
clear 

set  formt  to  TSI6 

change  fields  AREA,  SI6CHA1R,  SAFP1L1ATE,  SAOORESS1,  SADORESS2,  SHIT,  SSTATE,  SZ1P,  SPHONE  for  AREA  =  RAREA 

close  forut 
endif 

enddo 
clear  all 
return 
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i  IHa.DA6E.PR6 

s  This  progra*  mil  lest  for  articles  that  have  been  in  revie* 

*  bet»een  91  days  t  181  days;  181  days  I  279  days;  27#  days  8  365  days; 

*  385  days  plus.  Each  record  that  »eets  the  selected  criteria  will  be 
i  displayed  to  the  screen. 

set  talk  off 

store  ’  '  to  HA6ECHECK,  (CHOICE,  HAREA 

clear 

select  1 

use  TPU8  index  rPUBARSB 
select  2 

use  TAUTH  index  TAUTHSBN 

do  while  ,T. 
select  TPUB 
go  top 
dear 

8  3,25  say  "This  Module  checks  the  age  of" 

8  4,25  say  “subussions  still  in  revie*" 

8  6,25  say  "A.  Articles  in  revie*  fro*" 

8  7,29  say  “3  to  6  ninths." 

8  9,25  say  "B.  Articles  in  review  froi" 

8  18,29  say  "4  to  9  ninths." 

8  12,25  say  "C.  Articles  in  review  fro*" 

8  13,29  say  "9  ninths  to  1  year." 

8  15,25  say  "D.  Articles  in  review  for” 

8  16,29  say  “lore  than  1  year." 

8  18,25  say  "RETURN  -  to  exit  this  »enu." 

8  28,29  say  'Enter  your  choice:  ’  get  ItAGECHECK  picture  Y 
read 

if  HA6ECHECK  =  '  ' 
exit 

endif  M6ECHECK 
clear 

do  while  upper(ICHOICE)  8  ’  ABCDEF6H1JKKT 
go  top 
clear 

set  forwat  to  LIST AREA 
read 

close  for*at 

if  (CHOICE  --  '  ’ 
exit 
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endif  (CHOICE 


if  .not.  upperilCHOICE)  t  'ABCDEF6HIJKLH' 
clear 

set  color  to  +»,+* 

8 15,21  say  'Invalid  selection... . 

?  16,26  say  'Press  any  key  to  try  again.' 
set  color  to  »,+i 
nit  ” 

(CHOICE  =  ’  ' 
loop 

endif  (CHOICE  .not.  'ASCDEfGHIJKLor  IT 
clear 

if  upperilCHOICE)  =  'A' 
store  WH’  to  HAREA 
endif  (CHOICE  =  DA8N 

if  upperilCHOICE)  =  '8' 
store  ’DIS’  to  HAREA 
endif  (CHOICE  =  OIS 

if  upperilCHOICE)  =  'C' 
store  W  to  HAREA 
endif  (CHOICE  =  DffP 

if  upperilCHOICE)  =  '0' 
store  'HCSSI'  to  HAREA 
endif  (CHOICE  =  HCSSI 

if  upperilCHOICE)  =  V 
store  'ICS'  to  HAREA 
endif  (CHOICE  =  ICS 

if  upperilCHOICE)  =  'F' 
store  WE’  to  HAREA 
endif  (CHOICE  =  HAHEE 

if  upperilCHOICE)  =  ’6' 
store  'OPT'  to  HAREA 
endif  (CHOICE  =  OPT 

if  upperilCHOICE)  =  'H' 
store  '0T  to  IMREA 
endif  ICHOICE  =  ORP 
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if  upperlACHOlE)  =  T 
store  7SIIW’  to  HAREA 
endif  tCHOICt  =  PSP 

if  uppeHRCHOlCE)  =  'J' 
store  'SIESR’  to  HAREA 
endif  (CHOICE  =  SIESII 

if  upper(HCHOICE)  =  T 
store  'SSPS'  to  HAAEA 
endif  HCHOICE  =  SSPS 

if  i^jpertflCHOlCE)  -  'L' 
store  W  to  HAREA 
endif  HCHOICE  *-  SPIA 

if  upper(HCHOICE)  =  'H' 
store  'ALL'  to  RAREA 
endif  HCHOICE  ALL 

if  igjper(RAAEA)  1  'ALL' 
set  filter  to 
else 

set  filter  to  AREA  -  HAREA 
endif  HAREA  =  ’ALL’ 


g  4,14  sjy  ’Processing  records.  Please  DO  HOI  1H1ERRUPT 
do  irfitle  .not.  eof() 
if  ACCCOOE  =  ’H’ 

store  (<fate()'SU8DATt)  to  HA6EH0LD 
if  upperlRAGECHECK)  =  'A' 

if  HA6EHGL0  >=  ?f  .and.  HA6EH0LD  <  1M 
set  relation  to  sutonuab  into  IAD1H 
store  TAOIH  ->  LASTNAflE  to  TF1RSIAHTH 
set  relation  to 
clear 

I  5,11  say  ’Subiission  naber  is’.  ’ 

1 5,33  say  SIBIW8  picture 
i 6,10  say  'Reviw  area  is:  'Urii(AREA) 

«  7, If  say  IITLE 


§  9,11  say  'This  docment  «s  siiiitted  on  '  *  dtoriSUBDATEH’. 

8  II, If  say  'Days  elapsed  since  subiission:  ' 

8 11,42  say  IhfflOLD  picture  ’8b’  ,  ,  .  , 

8 11,11  say  'The  first  of  ’  *  str(AUTI*RS,l>  *  Shorts)  is. 

8  11,39  say  TFIRSTftUTH 


814,1  ,  .. 

nit  ’  Press  any  key  to  continue, 

endif  HAGEHOU)  91  to  1M 


endif  imaecu  *  ’ft’ 


if  upper(IW5ECH£CI) '8’ 


if  IhtGEHOLD  >-  1M  -and.  HftttHOLD  <  278 
set  relation  to  SU8NUH6  into  TAUTH 
store  TAUTH  ->  LftS TNAft  to  TF1RSTAUTH 


set  relation  to 


clear 

8  5,11  say  'Subiission  nuiber  is!  ’ 

8  5,33  say  SHNUM  picture  ’8b’ 

8  6,11  say  'Review  area  is:  ’ttrii(AREA) 


8  7,1#  say  TITLE 

8  9,11  say  ’This  document  «s  subiitted  on 
8  11,11  say  ’Days  elapsed  since  subiission:  ' 

8  11,42  say  ItAGEHOLD  picture  'ft' 

8  11,11  say  'The  first  of  '  ♦  strlAUTHORS,!)  ♦ 
I  11.19  uu  TFIRSTftUTH 


+  dtocl  SUBDATE  H’.’ 


autbor(s)  is: 


8  14,1 

Mit '  Press  any  key  to  continue 

endif  MGEHOLD  1M  to  271 


endif  AA6ECHECK  =  T 
if  upper ( AAGECHECK )  =  V 


if  MGEHOLD  >=  271  .and.  MGEHOIO  <  365 
set  relation  to  subnuib  into  TftUTH 
store  TAUTH  ->  LASTNAflE  to  TFIRSTftUTH 
set  relation  to 
clear 

8  5,11  say  ’Subiission  nuiber  is:  ’ 

8  5,33  say  SU8HUHB  picture  ’»’ 

8  6,11  say  'Review  area  is:  ’+tri»(AAEA) 

8  9,11  say  ’This  docment  was  subiitted  on  ’  +  dtoc  (SUBDATE  H’. 
8  11,11  say  'Oays  elapsed  since  subiission:  ' 
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* 11,42  say  IMEHOLD  picture 

*  11,11  say  'The  first  of  ’  +  str(M)nHRS,l)  +  '  author(s)  is:  ’ 

* 11,3?  say  TF1RSTM11H 

*14,1 

Hit  ’  Press  any  key  to  continue.. . ’ 

endif  HAGEHGU)  271  to  365 


endif  MGECHECX  =  ’C' 


if  upperilMGECHECX)  =  ’O' 
if  ttSEMD  >  365 

set  relation  to  subm^b  into  TAUTH 
store  TAUTH  ->  LASTNttE  to  TF1RSTAUTH 
set  relation  to 
clear 

*  5,11  say  'Subaission  nuaber  is:  ’ 

*5,33  say  SUBNUK  picture 

*  6,11  say  ’Review  area  is:  ’+tri*(AR£A) 

*  7,11  say  TITLE 

*  9,11  say  'This  docueent  ns  subeitted  on  ’  +  dtoc(SlBDA1E)+'. 

*  11,11  say  'Days  elapsed  since  subaission:  ' 

*  11,42  say  MGEHOLD  picture  ’ft’ 

*  11,11  say  'The  first  of  '  +  str(«n«S,l)  ♦  ’  author(s)  is:  ’ 

*  11,3?  say  TF1RSTAUTH 

*  14,1 

mt '  Press  any  key  to  continue . ' 

endif  IWGEHOLD  365+ 

endif  RAGECHECK  =  ’D' 


else 

skip 

loop 


endif  ACCCODE  =  ¥ 


skip 

if  corn 

*  21,26  say  ’PROCESSING  COMPLETED.’ 

«  21,14  say  'If  none  displayed,  none  within  specified  aye.’ 

*  22,24  say  'Hit  any  key  to  continue!" 
nit  ” 

endif 
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as Mo  eof() 

store  '  ’  to  (CHOICE 
release  (MflEA 
enddo  (CHOICE  0  T 


store  "  to  AA6ECHECK,  (CHOICE 

release  AAREA 

enddo 


close  databases 
return 


i  T1NPUT.PR6 

*Add  neu  articles  l  authors 

set  talk  off 

set  deliiiters  on 

set  intensity  off 

clear 

select  1 

use  TPU8  index  TPU8S8N,  TPUBACC,  TPUBARS8 
select  2 

use  TAUTH  index  TAU1HS8H,  TATHME 
do  uhile  .1. 

store  spaced#)  to  HT11LE 
clear 

select  TPUB 

§  2,11  say  'Enter  article  title  for  net  entry  (IN  iax)’  f ; 

'RETUAH  to  quit:' 
t  3,11  get  IITITLE 
read 

if  len(trii(/ITITLE))  =  f 
exit 
else 

go  bottoi 

store  SUBNUIV  +  1  to  RSU8NUH8 
append  blank 

replace  TITli  uith  IITITLE 
replace  SU8MM  uith  ASU8NUN 
replace  ACCCODE  uith  'H' 
replace  SUBDATE  uith  dated 
endif 

set  foruat  to  PUBINPUT 
read 

close  foruat 

store  AUTHORS  to  AAU THORS 
select  TAUTH 
store  1  to  AUTHCQUHT 

do  uhile  AUTHOR#]  <=  MiTHQRS 
set  foruat  to  AUTHIffT 
clear 
go  bottou 
append  blank 
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replace  SUBXUfti  nth  KUMM 
read 

close  fonat 

store  MIDC3UNT  ♦  1  to  AMHCOUHl 
enddoMITHCttMT 

enddo 

set  intensity  on 
set  delimiters  off 
clear  all 
return 
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i  TRENU.PItS 

*  This  is  the  lain  tew  for  the  ORSA  publications  system 
set  talk  off 

clear 

store  "  to  RDATECHECX 

*  2,24  say  'Today  is  ’  ♦  cdoddateO)  ♦  +  cmnthfdateO)  t  '  '  t  ; 

str(day(date()),2)  ♦  ’  ♦  str(year(date(»,4)  + 

R  4,21  say  'If  this  is  not  the  correct  date  enter  M  then’ 

R  5,21  say  'reboot  your  system  with  the  current  date.' 

R  7,21  say  ’If  the  date  is  correct  then  hit  Y  to  continue.' 

R  9, 21  say  'Enter  N  or  T:  '  yet  IDATECHECX 
read 

if  upper(IDATEHiCX)  =  T 
quit 

endif  flOATECHECK 

store  *  “  to  choice 

do  ubile  upped  CHOICE)  t  ’  123456’ 

*00  UHILE  loop  mil  redisplay  nenu  unless  X  or  REflfllH. 
clear 

R  5,21  say  "Publications  Data  Base  Syste*' 

R  7,21  say  'hake  your  selection  froi  the  following  list:" 

R  9,21  say  "1.  Add  neu  entries' 

R  If, 21  say  "2.  Edit  existing  records" 

R  11,21  say  "3.  Revieu/Print  entries" 

R  12,21  say  "4.  Check  aye  of  publications" 

R  13,21  say  "5.  Report  statistics" 

R  14,21  say  "6.  Oelete/Archive  records" 

R  15,21  say  “X.  Exit  to  DOS' 

R  17,17  say  "REfURR  Exit  to  DBAS" 

R  19, 2f  say  "Enter  selection:  "  yet  CHOICE 
read 

do  case 

case  CHOICE  =  T 
do  TINPUT 
case  CHOICE  =  '2' 
do  TEDITIMU 
case  CHOICE  =  '3' 
do  TRPRTIMi 
case  CHOICE  =  ’4’ 
do  TA8E1M1 
case  CHOICE  =  '5' 
do  TSTATIW) 
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case  CHOICE  :  '6' 
do  mm 
case  CHOICE  =  " 
exit 

case  upper  (MICE)  :  'V 
quit 

endcase  CHOICE 

CHOICE  --  ’  ’ 
enddo 
clear  all 
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*  TIIOOA6E.PR6 

*  This  prograi  »ill  test  for  articles  that  have  been  returned  for 
i  Mdifications  and  have  aged  betieen  91  days  1 1M  days;  189  ctays 

*  t  271  days;  271  days  t  345  days;  365  days  plus.  Each  record  that 

*  ieets  the  selected  criteria  Mill  be  displayed  to  the  screen, 
set  talk  off 

store  ”  to  M6ECHECK,  (CHOICE,  MREA 

clear 

select  1 

use  TPUe  index  TPUBARS8 
select  2 

use  TAUTH  index  TAUTKSBN 

do  uhile  .1. 
go  top 
clear 

9  3,29  say  "This  uodule  checks  the  age  of” 

9  4,25  say  "suhiissions  returned  for  wdification" 

9  6,25  say  ‘A.  Articles  in  (edification" 

9  7,29  say  "fro«  3  to  6  ionths." 

9  9,25  say  D.  Articles  in  lodtfication" 

9  11,29  say  "fro«  6  to  9  ionths." 

9  12,25  say  "C.  Articles  in  wdification" 

9  1J,29  say  “froi  9  ionths  to  1  year." 

9 15,25  say  "0.  Articles  in  wdification" 

9 16,29  say  "for  wre  than  1  year." 

9  16,25  say  "RETURH  -  to  exit  this  ienu.“ 

9  29,29  say  'Enter  your  choice:  '  get  AAGECHECK  picture  'a' 
read 


if  AA6ECHECK  =  ’  ' 
exit 

endif  ftAGECfCCK 
clear 

do  uhile  upper(KHOlCE)  $  '  MCOEFGHiJtLA’ 
select  TPU8 
go  top 
clear 

set  fonat  to  LISTAREA 
read 

close  fonat 


if  UCHOICE  --  '  ' 
exit 
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endif  HCHOICE 


if  .not.  ^iper(ftCHOICE)  $  ’ABCDEFBHIJKHI' 
clear 

set  color  to  +*,+* 

g  15,21  say  ’Invalid  selection . 

i  14,24  say  'Press  any  key  to  try  again.’ 
set  color  to  »,♦* 
nit  ” 

(CHOICE  =  ’  ' 
loop 

endif  (CHOICE  .not.  ’ABCOEFOHlILorA’ 
clear 

if  upper(ICHOICE)  :  ’A’ 
store  ’BAUD'  to  ItAREA 
endif  (CHOICE  =  DAfiD 

if  upper(ICHOICE)  =  '8' 
store  'BIS’  to  AAREA 
endif  (CHOICE  =  BIS 

if  upper(ICHOlCE)  =  T 
store  ’BDFP’  to  AAAEA 
endif  (CHOICE  =  BDFP 

if  upper(ICHOICE)  =  'B' 
store  ’HCSS1’  to  DAREA 
endif  (CHOICE  -  HCSSI 

if  upper(ICHOICE)  =  'E' 
store  ’ICS’  to  AAREA 
endif  (CHOICE  =  ICS 

if  upper(ICHOICE)  =  ’F' 
store  'DRAEE'  to  AAREA 
endif  (CHOICE  =  DRAEE 

if  upper(ICHOICE)  =  '6’ 
store  ’OPT’  to  AAREA 
endif  (CHOICE  =  OPT 

if  upper(ACHDICE)  =  ’H’ 
store  ’ORP’  to  AAREA 
endif  (CHOICE  =  ORP 
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if  upper(!CHOlC£>  =  'I' 
store  'PSIIT  to  (WO 
endif  KHOICE  =  PSIIVI 

if  upper(ICHOICE)  =  'J' 
store  ’SIESfl’  to  fWtLA 
endif  (CHOICE  =  SIESR 

if  upper(ICHOICE)  =  T 
store  ’SSPS'  to  (WIEA 
endif  (CHOICE  =  SSPS 

if  upper(ICHQICE)  =  'l' 
store  ’SPTA’  to  IWEA 
endif  (CHOICE  =  SPTA 

if  upper(ICHOlCE)  =  ’ll’ 
store  ’ALL'  to  IWREA 
endif  (CHOICE  =  ALL 

if  upper(IWREA)  =  ’ALL' 
set  filter  to 
else 

set  filter  to  AREA  -  RAREA 
endif  RAREA  =  'ALL' 

clear 

P  4,1 6  say  'Processing  records.  Please  DO  NOT  INTERRUPT 
do  nhile  .not.  eof() 
if  ACCCOOE  *  'N' 

store  (date(HCRJOATE)  to  RA6EK0LD 

if  upper (AAGECHECK)  =  'A' 

if  NAGEHOLD  >=  ?f  .and.  IIAGEHOLD  <  1M 
set  relation  to  SUBNUK  into  TAUTH 
store  TAUTH  ->  LASTNAAE  to  TFIRSTAUTH 
set  relation  to 
clear 

P  7,11  say  TITLE 

P  4,11  say  'Revie*  area  is:  ’  +  trii(AREA) 

P  5, II  say  'Subiission  maker  is:  ' 

P  5,33  say  SKIM*  pictire 


8  9,11  say  'This  document  us  submitted  on  '  +  dtoc(SU8MTE)+' . ' 
*  11,11  say  'Returned  for  modification  on  '  +  dtodACRJOATEHV 
8  11,11  say  'Days  since  returned  for  lodif ication:  ’ 

8  11, «  say  RAGEHOLD  picture  ’ft’ 

8 12,11  say  ’The  first  of  '  ♦  str(AUFH08S,l)  ♦  ’  author(s)  is:  ’ 
8  12,39  say  TF1RSTAUTH 
8  14,1 

nit  ’  Press  any  key  to  continue . ’ 

endif  RA6EHOLO  9#  to  18# 

endif  AA6ECHECK  =  'A' 


if  gpper ( fMGECHECX )  =  'I' 

if  RA6EH0LD  >=  IN  .and,  RAGEHOLD  <  27 1 
set  relation  to  SUBWMS  into  TAUTH 
store  TAUTH  ->  LASTNARE  to  TF1RSTAUTH 
set  relation  to 
clear 

8  7,11  say  TITLE 

8  4,11  say  'Review  area  is:  ’  +  trulAREA) 

8  5,11  say  'Submission  number  is:  ' 

8  5,33  say  SUBNtff  pictire  '8b' 

8  9,11  say  'This  document  us  submitted  on  '  +  dtoc(SUiDATE)+  . 

8 11,11  say  'Retimed  for  modification  on  '  ♦  dtoclACRJDATEH’.’ 
8  11,11  say  'Days  since  returned  for  modification:  ’ 

8 11,48  say  RAGEHOLD  picture  'ft' 

8  12,11  say  ’The  first  of  '  ♦  str(AUTHORS,l)  +  ’  author(s)  is:  ’ 
8  12,39  say  TF1RSTAUTH 
8  14,1 

nit  ’  Press  any  key  to  continue . 

endif  IIAGEHOLD  IN  to  278 


endif  AAGECHECK  =  '8' 


if  upper'WGECHECK)  *  'C' 

if  KAGEHOLD  >=  27*  .and.  RAGEHOLD  <  345 
set  relation  to  SUBRJR8  into  TAUTH 
store  TAUTH  ->  IASTHARE  to  TF1RSTAUTH 
set  relation  to 
clear 

8  7,11  say  TITLE 

8  4,11  say  'Review  area  is:  ’  ♦  trimlAREA) 
8  5,11  say  'Submission  number  is:  ’ 

8  5,33  say  SU8HUI*  pictire  'ft' 
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8  9,11  say  'Tills  document  Has  subiitted  on  '  +  dtodSlUDATEH’.’ 

8  11,11  say  'Retimed  for  unification  or  '  +  dtoc(ACRJDATE)+’.' 

8 11,11  say  Days  since  retimed  for  *odif icatton:  ' 

8 11,48  say  M6EH0LD  picture  ’8b’ 

8  12, It  say  'The  first  of  '  *  str! AUTHORS,!!  +  ’  author! si  is!  ’ 

8  12,39  say  TFIRSTAUTH 
8  14, 1 

nit  ’  Press  any  key  to  continue . ’ 

endif  HAGEHQLD  27t  to  385 

endif  NAGECHECK  =  'C' 

if  upper(fMGED£CK)  =  'D' 

if  IWGEHOLD  >  335 

set  relation  to  SU8NUHS  into  TAUTH 
store  TAUTH  ->  LASTNAflE  to  TFIRSTAliTH 
set  relation  to 
clear 

8  7,1#  say  TITLE 

8  8, It  say  'Review  area  is:  ’  +  tru(AREA) 

8  5,11  say  ’Subiission  nufter  is:  ’ 

8  5,33  say  SUBNUHB  picture  ’ft’ 

8  9,11  say  'This  dociaent  *as  sii)«ttte<i  on  ’  a  dtoc(SJ8DATE)+'.' 
8  11,11  say  ’Returned  for  •edification  on  '  +  dtoc(ACRJDATE)+V 
8  11,11  say  'Days  since  returned  for  unification:  ’ 

8  11,48  say  HAGEH01D  picture  ’ft’ 

8  12,1#  say  ’The  first  of  '  +  str ( AUTHORS, 1)  +  ’  author!*!  is:  ’ 
8  12,39  say  TF1RSTAUTH 
8  14, f 

•ait’  Press  any  key  to  continue . ’ 

endif  HAGEHQLD  385+ 

endif  NAGECHECK  =  ’D’ 


skip 

loop 

endif  ACCCODE  =  ’IT 


if  eof() 

8  21,26  say  ’PROCESSING  COIfLETED.’ 

8  21,14  say  'If  none  displayed,  none  within  specified  aye.’ 
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?  22,24  say  'Hit  any  key  to  continue!’ 
wait  " 
endif 

enddo  eof() 

store  ”  to  HCH0ICE 
release  IMREA 

enddo  (CHOICE  0  ’X’ 

store  "  to  AAGECHECt,  (CHOICE 

release  HAREA 

enddo 

close  databases 
return 


sirnunu.mu  .  *  .  .  , 

i  This  progra*  prints  out  an  abbreviated  forwt  of  selected  records 
i  based  upon  the  acceptance  code  (e.g.,  H,  A,  R,  P  or  «). 
set  talk  off 

if  upperllOftin/  -  'H' 
select  2 

use  TAUTHKST  index  TAHSTS8N 
select  1 

use  TPUBH5T  index  TPHARS8 
else 
select  2 

use  1AUTH  index  IN1THS8H 
select  1 

use  TPUB  index  TPUBfiRSB 
end  if  IttATA  =  'CorH' 

store  l  to  HPA6E 
store  i  to  flCflUKl 
store  ’  ’  to  ftSTATUS 

do  uhile  .T. 
store  ”  to  KEY 
store  "  to  (STATUS 
clear 

%  l, if  sau  ’yhtch  acceptance  status  code  wuld  you  like  to 
B  3,11  say  'revieu  (H,A,R,P  or  If)  (RETURN  to  quit)'.  '! 

get  ftSTATUS  picture  ’a’ 
read 


if  ftSTATUS  =  ’  ’ 
exit 

endif  ftSTATUS  =  RETURN 

if  .not.  i^iper(ftSTATUS)  t  '  HARPH' 
clear 

«  15,27  say  tri»(upper(RSTATUS!)  *  '  rwt  a  valid  status  code. 
B  16,27  say  ’Hit  any  key  to  try  again.' 
eit  ” 

store  "  to  ftSTATUS 
loop 

endif  .rat.  Word' 

set  filter  to  ACCCOOt  *  upper(ftSTATUS) 
go  top 


title  .not.  eof() 

store  space(35)  to  (IT1TLE1,  RT1TLE2,  BTITLE3 
store  stistr(Tiri£,i,35)  to  STRING1 
store  siistr(TITLE,34,35)  to  STR1N62 
store  siistr(TITLE,7t,Si)  to  STRIH63 

if  len(STR!N62)  = 1 
store  STRIN61  to  HTITLEl 
else 

J  --  atC  '  ,STR1N62) 

STRIN61  =  STR1N61  +  substr(STRIH62,l,.H) 
S1RIN62  =  stistr(STRllffi2,J+l,35-J) 
store  STRING1  to  RTITLE1 

if  len(5TRlH62)  =  I 
store  STRIH61  to  (IIIILEI 
else 

if  len(STRTN63)  --  i 
store  STRW62  to  RTITLE2 
else 

l  --  atl’  '  ,STR1N63) 

STRW62  =  STRIN62  +  5ubstr(STRIH6i4 
STRltK3  =  substr(STRIH63,K+i,35-K) 

if  len(STRING3)  =  I 
store  STR1NG2  to  (I11TLE2 
else 

store  S1RIN62  to  (ITITLE2 
store  STRIH63  to  BIITLE3 
endif 

endif 

endif 

endif 

if  upperOIDATA)  =  'H' 
set  relation  to  SU8HUM  into  TftUTmST 
store  TAU1HHST  ->  LASTHAflE  to  HASTHARE 
set  relation  to 
else 

set  relation  to  SU6NUW  into  TRUTH 
store  TRUTH  -)  lASTHAAE  to  IlffiTHAHE 
set  relation  to 
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endif 


if  upper  ((/OUTPUT)  =  ’P’ 
set  print  on 
set  nrgin  to  5 

7 

7 

endif 

endif 

?  ’HU#:  ’+str(SUBHU#,5)+’  Stffi:  ’+dtoc(Si«f)ATE)+’  ’+  HTHLfi 
?  'AREA:  AREA  +  ’  A/R:  ’  +  dtoc(ACRJDATE)  +  ’  ’  +  BTITLE2 
7  ’STAT.  ’+  ACCCOOE  +’  PI#:  ’  +dtoc(PU8DA1E)  +  ’  ’  ♦  MTLE3 
?  'AUTHOR:  '+fliSTNA(C+THtr(AUTHORS,l>+'>'+'  W:  ’+; 

CATNliBl  t  ’  ’  +  CAMW2  +  ’  '  +  CATHU#3 

? 

(COUNT  -  /COUNT  ♦  1 


if  upperd/OUTPUT)  =  T 
if  (COUNT  -  II 
eject 

#A6£  =  (CAGE  + 1 
/COUNT  - 1 
endif 
endif 

if  upperd/OUTPUT )  =  ’S' 

if /COUNT  M  l  i 

nit  ’  Hit  any  key  to  continue.. .(9)  to  abort...  to  nkti 

(COUNT  =  1 
endif 

if  upper(HKET)  =  'O’ 
exit 
endif 

endif 

skip 


8U 


A 


enddo 

set  print  off 
if  eofO 


§  21,1  clear 

t  22,2*  say  'End  of  file.. .Processing  complete...’ 

§  2i,l#  say  'If  no  records  displayed,  status  cocte  not  in  database!' 
I  24,25  say  ’Press  any  key  to  continue.’ 
wit  ” 
end  if 

if  igiperdlOUTPUT)  =  ’S’ 

KMUI 
end  if 

store  ’’  to  flSIATUS 


set  filter  to 
set  print  off 
dose  databases 
return 


85 


* lPVKML.ntB  4  .£.11-,-* 

t  ihts  proyai  prints  out  an  abbreviated  fortat  of  all  records 

i  in  tbe  database, 
set  talk  off 

if  upperdlMTA)  -  W 
select  2 

use  TAUTHKS7  index  TAHSTS8H 
select  l 

use  TPUBHST  index  TPHARS8 
else 
select  2 

use  TftUTH  index  TAUTHS8M 
select  1 

use  IPUB  index  TPU8RRS8 
endif  rDftTd  --  'CorH' 

store  l  to  IIPAfit 
store  I  to  BC0UK1 
clear 


do  iiile  .not.  eof() 

sS  sjitttSHo  ftUTLEl,  RTITLE2,  M3 
store  subs»trtTITLE,  1,351  to  STRINSl 
store  substrUHLC, 36,35)  to  SIRMG2 
store  stistr(Tini,71,35)  to  STRIffGj 


if  len(Sfl!I«2)  =  » 
store  STRIH61  to  ffillLEi 


else 

j  -  at l*  ’ ,STR1H62) 

STRIK61  =  SIRMGl  ♦  substrlSTRlH62,l,H) 
STRIH62  -  suhstr(STRIH62,J+l,35-J) 
store  SIRIH61  to  MULEl 


if  len(STRIH62) « 
store  SlRIiei  to  flUMl 
else 


if  lefl(SmH63)  * » 
store  STRIHG2  to  imTlE2 
else 

l  --  at(”,STR!H63) 

STRW62  =  STRM62  ♦  substf<SFRW63,l,H) 
STRIH63  -  siiistr(SlRIR63,W,3H) 
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if  len(STRIN63)  =  I 
store  STRIN62  to  (ITITLE2 
else 

store  STRIN62  to  HTITLE2 
store  STMN63  to  (ITIHi3 
endif 

end  if 

endif 


if  upper(RDATA)  1  ’H' 
set  relation  to  SUBNUM  into  fAU fWST 
store  TMITHHST  ->  IASTNAIC  to  RLASTNAflE 
set  relation  to 
else 

set  relation  to  SUBNUM  into  TAUTH 
store  TAUTH  ->  LASTNAflE  to  ILASTNAflE 
set  relation  to 
endif 

if  upper(ROUTPUT)  -  T 
set  print  on 
set  »argin  to  5 

if  (COUNT  =  I 
?  ’ 

str(RPAGE.3) 

? 

i 

endif 


P A6E  '+  i 


?  -«)(«:  '+strlSUBNU(IB,5H'  SUB:  ’*dtoc(SUBDATEH'  ’♦  RT1TLE1 
?  'AREA:  '+  AREA  +  ’  A/*:  '  ♦  dtoc(ACRJOATE)  ♦  ’  '  ♦  RTITIE2 
?  'STAT:  ’♦  ACCCOOE  +’  PUB:  ’  +<Jtoc(PU6DATE)  +  ’  ’  ♦  HTITIE3 
?  'AUTHOR:  '♦RLASTNAKEt' ( '+str(Al)THORS,l)+’)'+'  CAT: 

CATNUM1  ♦  ’  ’  ♦  CATNURB2  ♦  ’  ’  ♦  CATNURB3 

? 

(COUNT 1 ICOUNT  ♦  1 
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if  upper(ftOUTPUT)  =  T 

if  ocoiin  =  II 

eject 

WAGE  =  NPAK  + 1 
KOUttT  = » 
end  if 
end  if 

if  upper(IWtfTPUT) =  'S' 

if  ICOUMT  =  4  t  ,  ,, 

wit’  Hit  any  key  to  continue.. .(8)  to  abort...  to  (tti 

(COUNT  =  • 
end  if 

if  upper(WEY)=  ’8’ 
exit 
endif 

endif 

skip 
if  eof() 

? 

? 

? 

n 

8  21.1  clear 

8  22,2#  say  ’End  of  file... Processing  conplete... 

8  23.25  say  ’Press  any  key  to  continue.' 

Bit  ” 

endif 

enddo 

set  print  off 

close  databases 
return 
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*  TFPRTAR.PR6 

i  Ibis  prograi  prints  out  in  abbreviated  format  of  selected  records 

*  for  i  specified  area  editor  code  (e.g.,  0AM,  OPT,  etc.), 
set  talk  off 

if  upperdCATA)  =  ’H’ 
select  2 

use  TftUTHKST  index  TAHSISBN 
select  1 

use  TPUBHSl  index  TPHSTS8H,  TPHAAS8 
else 
select  2 

use  TAU1H  index  TAUTRS8X 
select  1 

use  TPU8  index  TPUBARS8 
endif  AOATA  =  'Corf' 

store  1  to  WAGE 
store  I  to  (COURT 
store  ’  'to  NAREA 

do  uhile  .1. 
store  '  ’  to  KASHA 

clear 

S  3,11  say  'Which  area  mould  you  like  to  rev ieu  (RETURN  to  quit!'.  'i 
get  flAREA  picture  ’AAAAA’ 
read 


if  AAREA  =  ’  ’ 

exit 

endif  AAREA  =  RETURN 

if  .not.  upper(AAREA)  t  7DABN  /OIS  Wt  /BSS/1CS  MR’*  i 
’/OPT  /ORP  /PSIIW/SIESR/SSPS  /SPTA  ’ 

clear 

*  15,27  say  tri«lupper(AAREA))  *  '  invalid  selection.’ 

C  16,27  say  'Hit  any  key  to  try  again.' 
nit  ” 

store  ’  '  to  (IAREA 

loop 

endif  .not.  valid  AKA 

set  filter  to  AREA  =  upperOIAREA) 
go  top 

do  uhile  .not.  eof() 
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store  '  '  to  K£T 

store  spice(35)  to  ITITlil,  HTITLE2,  (ITI1LE3 
store  st*str<TITL£,l,35>  to  STRIM61 
store  substrlTITLE, 36,35)  to  STRIM62 
store  substr(TITLE,?l,35)  to  STSIHG3 

if  len(STRIN62)  =  t 
store  STRIKG1  to  RTITLE1 
else 

J  =  at('  ',STRIH62) 

STRIN61  =  STRIM61  +  substr(STRING2,l,J-l) 
STRIH62  =  substr(SIRIHe2,J+l,35-J) 
store  STRING1  to  ITITlil 

if  len(STRIN62)  =  I 
store  STRIN61  to  ITITlil 
else 

if  len(STRIN63)  =  f 
5 tore  STRIN62  to  ITITLE2 
else 

K  =  atC  '  ,STRIH63) 

STRING2  =  STRIN62  +  substr(STMN63,l,H> 
STRIKS3  =  siAstr(STRIII63,l(H,3H) 

if  len(STRIN63)  =  I 
store  STRIN62  to  ITITL£2 
else 

store  STRING2  to  ITITLE2 
store  STRIIS3  to  ITITI13 
endif 

end  if 

endif 

endif 

if  upperdBATA)  =  ’H' 
set  reUtion  to  SUBMIN  into  TAUTHHSI 
store  TfltlTHHST  ->  LASTRAflE  to  HASTRAflE 
set  relit  ion  to 
else 

set  relation  to  SUBNUfB  into  TAUTH 
store  TAUTH  ->  LASTHAAE  to  lUSTMft 
set  relation  to 


if  upper(ROUTPUT)  =  T 
set  print  on 
set  nrgin  to  5 

if  ricawfT  =  • 

? ' 

str(flPA6E,3) 

7 


PA6E  ’+  ; 


?  'NUftt:  ’+str(SUBRURB,5)+'  SUB:  '+dtoc(SUBDATE)+'  ’+  NTITLE1 
?  'AREA:  ’+  AREA  +  '  A/R:  '  +  dtoc(ACRJ)ATE)  ♦  '  '  ♦  RTIILE2 
?  'STAT:  ’+  ACCCOOE  +'  PIS:  ’  +dtoc(PUBDATE)  +  ’  '  +  ftTITLE3 

7  ’AUTHOR:  ' +flLAST«AflE+ F ( ' *str( AUTHORS , 1 )+')'+'  CAT:  ’+i 
CATHURB1  +  '  '  +  CATHURB2  ♦  '  '  t  CATHURB3 

? 

(COURT  -  (COURT  +  1 

if  upper ((OUTPUT)  =  T 
if  (COURT  =  II 
eject 

dPAGE  =  flPAK  +  1 
(COURT  =  I 
endif 
end  if 

if  n>per((WUTPUT)  =  'S’ 
if  ICOURT  =  * 

nit  ’  Hit  any  key  to  continue... (0)  to  abort...'to  IKET 
(COURT  =  I 
endif 

if  upper(IET)  =  ’ll' 
exit 
endif 
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enddo 

set  print  off 

if  eof() 

? 

7 

7 

7 

i  21, *  clear 

?  22,21  say  'End  of  file.. .Processing  complete...’ 

I  23,11  say  'If  no  records  displayed,  selected  area  not  in  database!' 
i  24,25  say  ’Press  any  key  to  continue.' 
nit  " 
endif 

if  mper(fWUTPUT)  =  'S' 

hcount  =  f 

endif 

store  '  ’  to  JIAREA 

enddo 

set  filter  to 
set  print  off 
close  databases 
return 
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HPPRTCH.PR6 

*  This  proyai  prints  out  an  abbreviated  fonat  of  records  based 
f  tfon  subject  category  nuiber. 
set  talk  off 

if  upper(ICATA)  :  'H' 
select  2 

use  TAUTHHST  index  TAHSTS8N 
select  1 

use  TPUBHS1  index  TPHARSB 
else 

select  2 

use  TRUTH  index  1AUTHS8H 
select  1 

use  TPUB  index  1PUBARSB 
endtf  AORTA  =  ’CorH' 


store  1  to  If  AGE 
store  I  to  ICOUHT 
store  '  '  to  ICAT 

do  uhile  .T. 
store  ’  ’  to  MET 
store  ’  ’  to  ICAT 

clear 

«  2,21  say  'Hhat  subject  category  nuuber  do  you’ 
p  3,21  say  ’oant  to  look  at  (RETIUN  to  quit):  '  : 

get  ICAT  picture  'Ml’ 
read 

if  ICAT  =  ’  ’ 
exit 

endif  ICAT  =  RETURH 

set  filter  to  CATHUM1  =  ICAT  .or.  CATHUN62  =  ICAT  ! 

.or.  CATNUM3  =  ICAT 
go  top 

do  uhile  .not.  eof() 

store  space(35)  to  RTITLEl,  IITITLE2,  INITLE3 
store  substr(TITl£,l,K)  to  STRING1 
store  substr(TUlE,34,35)  to  STRING2 
store  substr(TITli,7l,35)  to  STRIHG3 

if  len(STRIH62)  =  I 
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store  STRIK61  to  flTITLEl 
J  =  »t(’  \STRIN62) 

STRIN61  =  STRIN61  +  sutistr  ( STRINGS .  1  >  J”1  > 

STRIH62  =  substr(STRIN62,J+l,35-J) 
store  STRING1  to  RTITLE1 

if  len(STHIK62S  -  f 
store  SIRING1  to  flTITLEl 
else 

if  len(STRIN63)  =  I 
store  STRINGS  to  RTITLE2 
else 

K  =  at(’  ’ .STRINGS) 

STRING2  =  STRIfffi2  +  substr(STRING3,l,H} 
STRIN63  -  substr(STRING3»K+l,35HC) 

if  len(STRIN63)  =  I 
store  STRINGS  to  11111112 
else 

store  STRIN62  to  HTITLE2 
store  STRIN63  to  I1TITIE3 
endif 

endif 

endif 

endif 

if  anerdlOAIA)  :  'N' 
set  relit  ion  to  SU6RUM  into  TfRJTWST 
store  IM11HHSI  ->  LftSTNAflE  to  HASTNAflE 
set  relit  ion  to 
else 

set  relation  to  SUBNUNB  into  IMJTH 
store  TftUTH  ->  LftSTNAflE  to  (IASTNANE 
set  relation  to 
endif 

if  upperffWUTPUT)  =  T 
set  print  on 
set  iirgin  to  5 


if  NCflUNT  :  I 


9k 


MICROCOPY  RESOLUTION  test  chart 
BUREAU  o,  A 


PAGE  ’+  : 


7  ’ 

strdWSMJ 


? 

? 


endif 


endif 

7 

?  'Hit: 

?  ’AREA! 
?  ’STAT: 
? 


’+str(SlBIIUI*,5)+’  SUB:  ’+dtoc(SUBDATE)+’  ’♦  WIILE1 
't  AREA  +  '  A/R:  ’  +  dtoc(ACRJDATE)  +  '  ’  +  HTITLE2 
ftcCCQOE  +'  PIS:  '  +dtoc(PUBDATE)  +  '  '  +  ATITLE3 
AUTHOR:  '+HASTHIfft’(,ntr(AUTHORS,l)t,)'+'  CAT:  '+! 

CATHURB1  +  ’  '  ♦  CATMUflB2  ♦  '  '  ♦  CATHUIS3 


7 

ran  =  ncouKi  ♦  1 


if  upper(HOUTPUT)  =  'P' 
if  (ICOUKT  =  II 
eject 

flPAGE  -  RPAGE  +  1 
BCOUHT  =  I 
endif 
end  if 


if  tfper(AOUTPUl)  =  ’S’ 


IT  llvWn  1  *  ,  .  |uru 

«it '  Hit  any  key  to  continue... (8)  to  abort...  to  mti 
ACOUMT  =  f 
endif 

tf  ifper(IKEY)  =  'O’ 
exit 
endif 

endif 

skip 

enddo 

set  print  off 
if  eofl) 

7 

7 

7 
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I  21, f  clear 

8  22,21  say  'End  of  file.. .Processing  caplete...’ 

8  23,11  say  ’If  no  records  displayed,  category  nuiber  not  in  database!’ 
8  24,25  say  'Press  any  key  to  continue.’ 

Hit  ” 
endif 

if  igiperdDUTPUl)  =  ’S’ 

ICOUHT  =  I 
endif 

store  ’  ’  to  HCfll 


set  filter  to 
set  print  off 
close  databases 
return 
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*  TPPRTS8.PRB 

*  This  prograi  prints  out  an  abbreviated  fonat  of  selected 

*  submission  numbers, 
set  talk  off 

if  upper(DOATA)  =  'H' 
select  2 

use  TAUTHHS7  index  TAHSTS8N 
select  1 

use  TPUBHST  index  1PHS1S8N,  TPHARS8 
else 

select  2 

use  TRUTH  index  TAUTHS8N 
select  1 

use  1PUB  index  1PU6S8H,  TPUBARSB,  TPU8ACC 
endif  IffiATA  =  'CorH' 

store  1  to  HPA6E 
store  I  to  HUM 

do  while  .1. 
clear 

store  '  'to  NSUBNUM 

8  2,1*  say  'Enter  submission  number  to  review  (return  to  quit):  '; 

get  IBIMM  picture  'WW' 
read 

if  HSDBNUH6  *  '  ’ 

if  upper(NOUTPUT)  =  'P' 
set  print  off 
eject 
endif 

close  databases 
exit 
endif 

seek  val(rtSUe«HB) 

if  eof() 
clear 

set  color  to  +*,+» 

8 15,21  say ’  Submission  “  ♦  trii(RSUMM)  ♦ "  not  in  database.’ 
8 16,2*  say  *  Press  any  key  to  enter  a  neu  number.* 

Hit  " 

set  color  to  w,+w 
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endif  eofl) 

store  soace(35)  to  BUTLEl,  BUM2,  HT1TLE3 
store  istrlTITLE,  1,35)  to  STRW61 
store  54*5tr(TITl£,36,35)  to  STWHK 
store  «Astr(TlTLE,71,35)  to  STRIM63 

if  len(STRIN62)  »  I 
store  STRING1  to  HTITLE1 
else 

j  =  jt(”,STIlIH62) 

STRIN61  -  STRIH61  +  substHSTRINGZ^H) 

STRIRG2  -  substr < STRIN62, J+l ,35- J) 
store  STRING!  to  RTITIE1 

,f  len(STRING2)  =  » 
store  STRING1  to  R11TLE1 
else 

if  len(STRING3)  = 1 
store  STRIN62  to  11111112 
else 

K  =  jt(’  \STRIN63) 

STRING2  =  STRING2  *  substriSIRINGS^H) 
STRINGS  -  substr (STR1N63 ,1+1 ,3H ) 

if  len(STRIN63)  =  I 
store  STR1N62  to  RTITLL2 
else 

store  STRING2  to  RTIT1I2 
stare  STRING3  to  RTITLE3 
endif 


endif 

endif 

endif 

if  upper(flDATA)  1  'H' 

T relation  to  SUBIM*  into  TjmKT 
store  TMJTHHST  ->  LRSTNNt  to  HASTilt 
set  relation  to 
else 

set  relation  to  SUBNU*  into  TRUTH 
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store  TAUTH  •)  LkSTRARE  to  RLASTIttRE 
set  relation  to 
efldif 

if  ifper(flOUTPUT)  =  T 
set  print  on 
set  iirgin  to  5 


if  (COUNT  =  I 

i  ’ 


str(RPAGE,3> 

? 

? 


endif 


PA6E  ’+ 


endif 


?  'HUM:  ’+5tr(SUBNUNB,5)+'  SUB:  ’♦dtoc(Sl#DATE)+’ 

?  'AREA:  ’+  WEA  +  '  A/R:  '  +  dtoc(ACRJOATE)  ♦  ' 

?  'STAT:  ’♦  ACCCODE  ♦’  PI®:  ’  +dtoc(PUBOATE)  *  ' 
?  ’AUTHOR:  '+llASTHARE+'('tstr(AUTHORS,l)+’)'+'  WT: 
CATNUflBl  +  ’  ’  +  CATil#2  ♦  ’  ’  ♦  CATHURB3 


’♦  RTITlil 
+  RT1TIE2 
'  t  RTITLE3 
v, 


m  s  (COUNT  ♦ 1 


if  upper(IWUTPUT)  =  T 
if  (COUNT  *  II 
eject 

RPAGE  =  NPA6E  +  1 
ICOUNT  =  I 
endif 
endif 


if  upper(HOUlPUl)  -  'S’ 
if  (COUNT  s  1 

nit '  Hit  any  key  to  continue, 

(COUNT  =  « 
endif 
endif 

enddo 


close  databases 
return 
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i  prinu  °ut  an  3bbrevi3te<i  ^  *ikw 

*  subiission  numbers  for  authors  of  articles. 

set  talk  off 

do  while  .T. 
store  ’  '  to  SET 
select  2 

use  1AUTHHST  index  TAHSTSBH,  IHATHAH 
select  l 

use  IftUIH  index  IAUTKS8N,  TATHAflE 


do  while  .T. 


store  ”  to  HIST 


8  2,28  say  'AUTHffl  SELEC1I0H  IBU' 

8  4,18  say  'ft.  All  authors  sorted  by  last  name.^ 
8 5,18  say  ’l .  All  authors  for  given  last  me. 

8  6  18  say  'H.  All  authors  for  given  submission 
8  8,18  say  ’RETURN  -  to  exit.’  get  HIST  picture 
read 


nuober.' 

’a’ 


if  .not.  upper(HIST)  \  ’  ALH’ 
clear 

set  color  to  +w,+w  v 

8  28,3  say  'Invalid  listing  selection  ■■ 
8  21,23  say  ’Press  any  key  to  continue.’ 
wait  ” 

set  color  to  u,+» 
loop 
else 
exit 
endif 


H1S1  +  ’ 


enddo 


if  HIST  =  ’  ’ 
exit 
endif 

if  qiper(HISl)  -  ’A’ 

if  upper(lll)ATA)  -  'H' 
select  TAUTHHST 
set  index  to  THATNAK 
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JO  top 
else 

select  1AUTH 
set  index  to  TMHftPE 
go  top 

end  if  IWATA  =  'CorH' 

endif  MIST  =  ’A’ 

if  upper(MlST)  =  'L' 

if  upper(IDATA)  =  'H' 
select  TftUTHHST 
set  index  to  THATNAM 
go  top 
else 

select  TAUTH 
set  index  to  TATNAM 
go  top 

endif  IffiATA  -  'CortT 

endif  MIST  =  'L' 

if  upper(MIST)  * 

if  upper(M)ATA)  =  ’H’ 
select  TAUTHHST 
set  index  to  TAHSTS8H 
go  top 
else 

select  TAUTH 
set  index  to  TAUTHS8H 
go  top 

endif  MATA  =  T 

endif  MIST :  'A' 

store  1  to  MAfit 
store  I  to  MOUNT 

do  otule  .T. 

if  upper(MlST)  =  ’l’ 
store  spaceUS)  to  MASTNAM 

nai  sag  'Enter  author  last  naw  to  review  (retim  to  <piit) 
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t  3,11  get  UteWMl 
read 


if  lw(tria(IL(6TIMK))  = « 
exit 
eodif 

set  filter  to  LAST NM€  *  HJBBWI 
go  tog 

endif  HIST  =  ’L’ 

if  upper  (MSI  1  ' 
clear 

store  ’  'to  mm 

g  2,11  say  'Enter  subiission  nuaber  to  review  (return  to  quit):  '» 
get  mm  picture  ’99999’ 
read 

if  mm  ■- '  ’ 

exit 
endif 

seek  vaKASUeNUW) 

if  eof() 
clear 

set  color  to  +»,+» 

g  15,3  say  "  Subussion  "  +  trn(ftSlffiNlBB)  +  ! 

“  not  in  database.” 

g  16,2#  say  ”  Press  any  key  to  enter  a  nw  muter.’ 
wit  ” 

set  color  to  »,♦» 
g  15,11 
g  14,11 
loop 

endif  eof() 

set  filter  to  SUBNU*  =  val(ftSUB«U«) 
go  top 

endif  MSI  *  'IT 

do  »hile  .not.  eofU 
store  ’’  to  HEY 

if  uppertBOUTPUT)  =  'P' 
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set  print  on 
set  largin  to  II 

if  !OUNT  =  l 

?  ' 

stf(APAGE,3) 

? 

? 

endif 

endif 


PAGE  '+  ; 


?  tri.lLAS!HAKH%  '+tri«(FIRSTNAHE)+  ’  Bub  A:  ’  ♦ 
str(SU8im,5) 

?  affiliate 

?  trii(ADDKESSl)  +  ’  ’  +  tri»(A00RESS2) 

7  trii(CITY)  +  '  +  trii(STATE)  +  ’  '  +  ZIP  + 


+  PHffltE 


ICOUNT  --  ICOUNT  +  1 

if  upper(AQUTPUT)  =  T 

if  ICOUNT  =  II 
eject 

(IPA6E  =  WAGE  +  1 
IKOUHT  =  I 
endif 


endif 


if  upper(HOUTPUT)  =  'S' 

if  KOUHT  M  L  ,  ,  , 

«itr  Hit  any  key  to  continue. ..(8)  to  abort...  to  lit T 

ICOUNT  =  I 
endif 


if  upper  (KEY)  =  '8' 
exit 
endif 


endif 


skip 
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enddo 


set  print  off 

if  eofO 
? 

? 

? 

? 

« 21,1  dear 

t  23,3  say  ’End  of  file.. .Processing  coiplete...' 
j  24,25  say  'Press  any  key  to  continue.' 
nit  " 
exit 
endif 

if  upper(HKEY)  =  'S’ 
exit 

endif  HKEY  =  T 

store  '  '  to  mm 

store  spacedS)  to  HASTiKt 

loop 

enddo 


enddo 

set  print  off 
set  filter  to 
close  databases 
retim 


ioU 


A. 


t  rPitra.PR6 

i  This  prograi  prints  out  lnforwtion  on  the  various  S16  chairien, 

set  talk  off 

use  1AREA  index  TAREA2 

store  1  to  APAGE 

store  I  to  (COUNT 

do  uhile  .1. 
store  ’  'to  IMA 
clear 

R  2,11  say  'inch  area  would  pi  like  to  review  (RETURN  to  quit) : 

get  IMA  picture  ’AAAAA’ 
read 

if  IMA  =  ' 
exit 

endif  IMA  --  RETURN 

if  .not.  uppedlMA)  (  7DABK  /DIS  M?  /'HCSSI/ICS  /NRttE’t  ; 

'/op i  /oftp  /psiiwsiesa/ssps  /spta  ’ 

dear 

set  color  to  +«,+u 

R  15,22  say  trii(upperdMAi)  +  '  invalid  selection.' 

R  16,27  say  'Hit  any  key  to  try  again.' 
set  color  to  »,♦» 
uait  ” 

store  ’  ’  to  MA 

loop 

endif  .not.  valid  AREA 


set  filter  to  AREA  =  upper(IMA) 
go  top 

do  while  .not.  eof() 
if  upper(IWUTPUT)  =  T 
set  print  on 
set  »argin  to  5 

if  (COUNT  =  I 

?  ' 

str(NPAGE,3) 

? 

? 

endif 


PAGE  7 


endif 
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?  ’Editor:  ’  ♦  triilFIRSTNWt)  +  '  ’  +  tr m(LASTHftftE) 
?  AFFILIATE 

^  trii(ADDRESSl)  +  1  ’  +  tri»(AD0RESS2) 

?  trn(CITY)  +  ’ ,  '  +  trm(STATE)  +  '  ’  +  ZIP  +  + 


ncouNi  -  iwwin  ♦  1 

if  upper(IWUTPUT)  =  T 
if  NCOUHT  --  8 
eject 

NPAGE  =  flPAGE  +  1 
NCOUNT  =  » 
end  if 
end  if 


skip 

enddo 

set  print  off 
if  eofi) 

i 


0  21,0  clear  , 

@  22,20  say  ’End  of  file.. .Processing  conplete... 

0  23,11  say  'If  no  records  displayed,  selected  area 
0  24,25  say  ’Press  any  key  to  continue.' 
nil  ” 


not  In  database!' 


endif 


store  ’  ’  to  flAftEA 


enddo 

set  print  off 
set  filter  to 
close  databases 
retirn 
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i  TPRTLBL.PRG 

i  This  prograi  prints  nail in;  labels  for  either  the  area  editors 
i  or  the  SIG  chainan.  Label  fores  are  liiited  to  35  characters 
*  per  line  aax  to  fit  on  single  width  standard  3  1/2“  by  15/16“  labels. 

set  talk  off 
use  TAREA 

do  while  ,T. 
clear 

store  '  '  to  HMEL 
store  "  to  flPRINT 

8  2,17  say  ’llould  you  like  to  print  labels  for  the  area’ 

8  3,14  say  '(E)ditors  or  the  SIG  (C)hair»en  (RETURN  to  quit):  ’  ; 

get  ALA BEL  picture  ’a’ 
read 

if  .not.  upper(IUBEL)  t  '  CE’ 
clear 

set  color  to  +*,+* 

8  15,28  say  'Invalid  selection  *  '  +  ALA8EL  +  ’ 

8  16,28  say  'Hit  any  key  to  continue.' 
set  color  to  Mu 
Bit  " 
loop 

endif  ALABa  .not.  '  CorE' 
clear 

if  ILAKL  »  '  ' 
exit 

endif  ALABEL  -  RETURN 

do  while  ,T. 
store  "  to  ASCRPRN 
clear 

8  2,11  say  'Gould  you  like  output  to  the  (S)creen  or  (P)rinter?  ’ 
8  3,26  say  '(RETURN  to  quit)?  ’  get  ASCRPRN  picture  'a' 
read 

if  .not.  upper(ASCRPRN)  «  ’  SP' 
clear 

8  15,27  say  'Invalid  selection  *  ’  +  ASCRPRN  +  ' 

8  16,27  say  'Hit  any  key  to  continue.' 

Bit  ” 


clear 


if  ASCRPRN  *  '  ’ 
exit 

end  if  ftSCRFRM  =  RETURN 

if  upperiiyea)  =  t 

if  upperdtSCRPRII)  =  ’f’ 
clear 

set  color  to  *»,+» 

I  15,24  say  'Assire  that  the  printer  is  ready.' 

I  16,2#  say  ’Enter  (8)  to  go...  Any  other  key  to  abort.’  ; 

get  MINI  picture  'a' 

read 

set  color  to  t,+t 

if  .not.  upper(MINT)  =  ’8' 
exit 

endif  MINT  .not  ’6’ 

label  fort  TEDIUM  sa^le  to  print 
else 

label  fort  TEDIUM  satple 
endif  NSCRPRN  =  T 
endif  NUKL  =  ’E’ 


if  upperidAIElj  =  ’C 


if  upper  NSCRPItNl  -  T 
clear 

set  color  to  ♦»,*» 

8  15,24  say  ’Assure  that  the  printer  is  ready.’ 

8  U.2I  say  ’Enter  (6)  to  go...  Any  other  key  to  abort.- 

get  MINT  picture  ’a’ 

read 

set  color  to  t,+t 

if  .not.  upper(MINT)  =  '6' 
exit 

endif  MINT  .not  ’6' 

label  fort  ISIS  saiple  to  print 
else 
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label  for*  TS16  saple 
endtf  RSCRPRM  »  T 


endif  (lABtL  =  'C' 
enddo 
enddo 

close  databases 
return 
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*  TPRJSI6.PR6 

*  This  progra*  prints  out  intonation  on  the  various  SI6  chainen. 
set  talk  off 

use  1AREA  index  TMIEA2 
store  1  to  flPAGE 
store  f  to  flCOUNT 

do  uhile  .1. 
store  ’  '  to  AAAEA 

clear 

P  2,11  say  'llhich  area  uould  you  like  to  revieu  (RETURN  to  quit): 

get  AAAEA  picture  'AAAAA' 
read 

if  MREA  =  ’  ' 

exit 

endif  AAREA  =  RETURN 

if  .not.  igiper(AAREA)  $  7DA8H  /DIS  /DFNP  /HCSSI/ICS  /HRREE't  ; 

’/DPT  /ORP  /PSIAA/SIESA/SSPS  /SPTA  ’ 
clear 

set  color  to 

P  15,27  say  tri*(upper(AAREA))  +  ’  invalid  selection.' 

P  16,27  say  'Hit  any  key  to  try  again.’ 
set  color  to  «,+u 
wit  " 

store  '  ’  to  AAREA 

loop 

endif  .not.  valid  AREA 

set  filter  to  AREA  =  upper(AAREA) 
go  top 

do  uhile  .not.  eof() 
if  upper(AOUTPUT)  -  T 
set  print  on 
set  «argm  to  5 


if  ACDURT  -- 1 

?  ’  PAGE  '♦  ; 

str(APAGE,3) 


endif 


endif 
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7 

?  ’SlS-Oiaimn  I’HriilupperllWlEAm’):  ’Hri»(S16£HAIR) 

?  SAFFILIATE 

?  trii(SMDRESSl)  ♦  '  '  +  trii(SM«tESS2) 

?  trii(SCITT)  +  »,  '  ♦  trii(SSTATE)  ♦ '  ’  ♦  SZIF  +  ’  '+  SPWM 


ICOUNT  =  ICOUNT  +  1 

if  upper(NOUTPUT)  =  T 
if  ICOUNT  =  If 
eject 

APA6E  =  I1PA6E  + 1 
ICOUNT  =  f 
end  if 
endif 

skip 

enddo 

set  print  off 
if  eof() 

7 

7 

7 

7 

P  21, f  dear 

P  22,21  say  ’End  of  file... Processing  complete.. .’ 

P  23,11  say  'If  no  records  displayed,  selected  area  not  in  database!’ 
P  24,25  say  ’Press  any  key  to  continue.' 
nit  ” 
endif 

store  ’  '  to  MICA 


set  print  off 
set  filter  to 
close  databases 
return 
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i  TPRTSUBJ.PR6 

*  This  proyai  prints  out  a  listing  of  the  subject  category 

*  nuihers  and  their  respective  titles, 
set  talk  off 

do  while  .T. 

use  TSUBCAT  index  TSUBCAT2 

do  while  .T. 
store  ’  ’  to  RUST 
clear 

R  2,2#  say  'Mould  you  like  to  see  all  the  sheets’ 

R  3,2#  say  ’(L)isted  by  category  nuober  or  select' 

R  4,15  say  'stAjects  by  categoty  (tl)uiber  (RETURN  to  quit)? 

get  MSI  picture  'a' 
read 

if  .not.  upper(RLIST)  $  '  U' 
clear 

set  color  to  +»,+» 

R  21,2#  say  'Invalid  listing  selection  *  ’  +  HIST  +  ’ 

R  21,23  say  'Press  any  key  to  continue.' 
set  color  to  »,+* 
wait  ” 
loop 
else 
exit 
endif 

enddo 

if  RUST  =  '  ' 
exit 

endif  RLIST  =  RETURN 

store  1  to  RPA6E 
store  I  to  RCflUNT 

do  while  ,T. 
store  "  to  imPMt 
clear 

R  2,11  say  'Mould  you  like  output  to  the  (S)creen  or  (P)rinter? 

get  RSCRPRN  picture  'a' 

read 

if  .not.  uppef(RSCRPRN)  $  'SP' 
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dew- 

set  color  to  ♦*,♦* 

8  15,27  say  'Invalid  selection  *  '  +  flSCRPRH  ♦  ’ 

8  16,27  say  ’Hit  any  key  to  continue.’ 
set  color  to  u,+« 

Halt  " 
loop 
else 
exit 
endif 

clear 

enddo 

do  ubile  .1. 

if  upper(HIST)  =  'r 
store  '  'to  ICATNUM 
clear 

i  2,11  say  ’Enter  category  nuaber  to  revieu  (return  to  quit):  ’; 

get  ICATNUM  picture  'tit' 
read 

if  ICA1NUM  =  ’  ’ 
exit 
endif 

seek  mm 

if  eof() 
clear 

set  color  to  ♦»,+« 

£  15,27  say  "Category  lumber  "  ♦  KATNUflB  r "  not  in  database." 
*  16,27  say  "Press  any  key  to  enter  a  nett  lumber.' 

Hit  “ 

set  color  to  »,h 
§  15,11 
8  16,11 
loop 

endif  eof() 

set  filter  to  CATNIIM  =  ICATNUM 
go  top 

endif  HIST  =  ’N’ 
do  uhile  .not.  eof() 
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store  ”  to  KEY 


tf  upperdGCWRH)  =  T 
set  print  on 
set  nrgin  to  if 

if  (COUNT  =  I 

?  -  PAGE  ; 

str(lfAGE,3) 

? 

? 

endif 
end  if 

?  CATNUffl  +  ’  '  +  SUBJECT 
(COUNT  =  (COUNT  +  1 

if  upper(IISCRPRN)  =  ’P’ 

if  (COUNT  1  3? 
eject 

IMGE  =  IMGE  ♦  1 
ICOUNT  =  f 
endif 


if  upper(ASCRPRN)  =  ’S' 
if  upper(BLIST)  =  ’L’ 
if  ICOUNT  =  24 

nit  '  Hit  any  key  to  continue.. .(D)  to  abort...’  to  IKET 
ICOUNT  *  f 
endif 

if  upperdtKET)  -  '8' 
exit 
endif 

endif  HIST  =  ’L’ 
endif  ftSCRPWf  =  ’S’ 


skip 
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enddo 


set  print  off 

if  eofO 
? 

? 

? 

P  23,21  say  ’End  of  file... Processing  co*plete...’ 
§  24,25  say  'Press  any  key  to  continue.’ 
nit  ” 
end  if 

if  upper(HIST)  ’L’ 
exit 

endif  NL1ST  =  ’L’ 
store  '  '  to  IKAnUM 

enddo 
loop 


set  print  off 
set  filter  to 
close  databases 
retim 
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*  TUBSTAI.PRS 

i  This  prograw  calculates  the  nueber  of  proposed  articles 
t  that  have  been  accepted,  rejected,  polished  or  in 
i  review  (holding)  along  with  their  percentage  of  the  total 
s  for  individual  areas  or  far  the  entire  data  base, 
set  talk  off 

store  "  to  (DEVICE,  CHOICE 

do  while  upper  (CHOICE)  i  '  AICDEF6HIJtLH’ 
store  "  to  (DEVICE 
store  '  '  to  CHOICE 
dear 

set  forwat  to  USTftREft 
read 

close  forwat 

if  CHOICE  =  ’  ’ 
exit 

endif  CHOICE 

if  .not.  upper(CHOlCE)  t  'ABCDEFGHlltN' 
clear 

set  color  to  +w,+w 

0  15,21  say  'Invalid  selection . . . 

i  14,24  say  'Press  any  key  to  try  again.' 

set  color  to  w,+w 

wait” 

CHOICE «  ’  ’ 
loop 

endif  CHOICE  .not.  'ABCOEFBHIJKLor  (I’ 


a  2,14  sau  'Do  you  want  output  to  the  (S)creen  '  +  ; 

'or  (P)rinter? '  get  (DEVICE  pictire  'a' 

read 

p  2,15  say  “Processing  the  data  file.  Please  be  patient... 

if  igiper(IDEViCE)  --  T 
set  device  to  print 
endif  IBEVICE  *-  T 

use  TPUB  index  TPU8ARS8 

if  ipper(CHOICE)  :  ’ft' 
store  MU'  to  im 


ervdif  ((CHOICE  =  WfiH 


if  niperillCHOICE)  -  T 
store  'DIS'  to  KAREA 
endtf  KCHOICE  =  DIS 

if  upper(DCHOICE)  =  T 
store  'DNFP'  to  «ftR£A 
end  if  KCHOICE  =  WFP 

if  upper(KCHOICE)  =  ’D’ 
store  'HCSSI'  to  RMEA 
end  if  KCHOICE  =  HCSSI 

if  upper(KCHOICE)  =  T 
store  ’ICS’  to  KAREA 
endif  KCHOICE  =  ICS 

if  i^iper(KCHOICE)  =  ’F’ 
store  ’NRKEE’  to  KAREA 
endif  KCHOICE  =  NRKEE 

if  upper(KCHOICE)  =  '6' 
store  'DPI'  to  KAREA 
endif  KCHOICE  -  OPT 

if  ifper(RCHOlCE)  =  ’H’ 
store  ’QRP’  to  KAREA 
endif  KCHOICE  =  QRP 

if  upper(KCHOICE)  =  T 
store  ’PSIKK’  to  KAREA 
endif  KCHOICE  =  PSIKK 

if  i^per(KCHOlCE)  =  ’J’ 
store  ’SIESK’  to  KAREA 
endif  KCHOICE  =  SIESK 

if  ifper(KCHOICE)  =  T 
store  ’SSPS’  to  KAREA 
endif  KCHOICE  =  SSPS 


if  upper(KCHOlCE)  =  ’L’ 
store  ’SPTA’  to  KAREA 
endif  KCHOICE  =  SPTA 
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if  upperirtCHOICE)  -  W 
store  ’MJl'  to  AAREA 
endif  (CHOICE  =  ALL 

if  AAREA  -  'Mi' 

count  for  ACCCOOE  =  ’H’  to  AH0LDIH6 
count  for  ACCCOOt  =  'A'  to  AACCEPTED 
count  for  ACCCfiOE  =  ’R’  to  REJECTED 
count  for  ACCCOOE  =  T  to  flPUBLISHED 
count  for  ACCCOOE  =  'A'  to  IWDIFr 
endif  IMA  -  'A LI’ 


if  AAREA  0  'ALL' 

count  for  AREA  =  AAREA  .and.  ACCCOOE  =  'H'  to  AHQLDIH6 

count  fx  AREA  -  AAREA  .and.  ACCCOOE  =  *A*  to  AACCEPTED 

count  for  AREA  =  AAREA  .and.  ACCCOOE  =  ’R'  to  ARE.ICTED 

count  fx  AREA  -  AAREA  .and.  ACCCOOE  =  T  to  HPUiLfSHED 

count  fx  AREA  =  AAREA  .and.  ACCCOOE  =  ’A’  to  AAOOIFT 

endif 

store  AH0LD1HG  ♦  AACCEPTED  ♦  AREJECTED  +  APU8LISHED  +  ! 
AAOOIFT  to  ATOTAL 

store  IMLD1NB  /  ATOTAL  f  1«  to  APERCEHTH 

store  AACCEPTED  /  ATOTAL  *  Iff  to  APERCEHTA 

store  AREJECTED  /  ATOTAL  *  IN  to  APERCEHTR 

store  /PUBLISHED  /  ATOTAL  » 1»  to  APERCEHTP 

store  AAOOIFT  /  ATOTAL  *  1M  to  APERCEHTA 

store  APERCEHTH  ♦  APERCEHTA  +  APERCEHTR  +  APERCEHTR  +  ; 

APERCEHTA  to  APERCEHTT 
R  1,1  clear 

1 3,  (85-len< 'Statistics  fx  Articles  in  'Urii(AAREA)))/  ; 

2  say  'Statistics  fx  Publications  in  '+AAREA 
I  5,32  say  "PUDLICATIOHS  STATISTICS" 

R  1,29  say  "FREOUEHCT  PER  CEHT" 

I  9,12  say  "H0LDIH6" 

§  9,31  say  AH0LDIH6  picture  ’9999' 

R  9,51  say  APERCEHTH  pictxe  ’999.9’ 

I  11,12  say  'ACCEPTED' 

R  11,31  say  AACCEPTED  picture  ’9999’ 

R  11,51  say  APERCEHTA  pictxe  ’999.9’ 

R  13,12  say  'REJECTED' 

R  13,31  say  AREJECTED  picture  ’9999’ 

R  13,51  say  APERCEHTR  picture  ’999.9’ 

R  15,12  say  'PUBLISHED' 

R  15,31  say  APUBLISUD  picture  ’9999’ 

R  15,51  say  APERCEHTP  pictxe  ’999.9’ 


118 


8  17,12  say  'fWOIFlCATIOT 
8  17,31  say  IW30IFT  picture  ’9999’ 

8  17,51  say  IffllCFNTA  picture  ’999.9' 

8  19,12  say  ’TOTAL’ 

8  19,38  say  ATOTAL  picture  ’99999’ 

8 19,51  say  IfERCBiTT  picture  '999.9' 

if  upper (IffltVICE)  :  T 
clear 
eject 

set  device  to  screen 

8  22,15  say  ’Printing  coipleted.  Press  any  key  to  exit.’ 
wit  ” 
else 

8  2M  dear 

8  22.12  say  'Press  any  key  to  continue!’ 

Hit" 

endif  A0FV1CF  *  T 
ertddo 

close  databases 
return 


*  IMRTtll.PRG  .  .  a  M 

i  This  prograi  controls  the  execution  of  review  q 

*  the  various  stated  options, 
set  talk  off 

store  '  ’  to  IftEVCHGlCE 
store  ’ C’  to  (DATA 
store  'S’  to  ^OUTPUT 

do  while  NREVCHOICE  f  ’  12J45678’ 
dear 

set  format  to  TRPRTHHU 
read 

close  format 


if  upper(NREVCHQlCE)  =  '  ' 
exit 

endif  NREVCHOICE  =  RE1URN 

if  .not.  NOTICE  $  ’12345678’ 
clear 

set  color  to  ♦»,+»  , 

»  J5,2I  say  ’Invalid  selection . 

g  1^2$  say  ’Press  any  key  to  try  again, 
set  color  to  »,+* 
nit  ” 

rrevchqice  =  ’  ’ 

clear 

md if  NREVCWICE  .not.  in  U4j6/8 
do  case 

case  NREVCHOICE  =  T 
do  WTO 

case  NREVCHOICE  -  2 
do  TPRTAUTH 
case  NREVCHOICE  ■  3 
do  IPRTEO 

case  NREVCHOICE  ’4’ 
do  TPRfSIG 

case  NREVCHOICE  =  '5' 
do  TPRfL8L 

case  NREVCHOICE  =  '<>' 
do  TPRISUHJ 
case  NREVCHOICE  =  ’V 

if  NDATA 


or  [printing 
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NDATft  =  'H' 
else 

flOATA  =  ’C’ 
endif 

case  AREVCHOICE  =  ’8’ 

if  mUTPUT  =  'S’ 
iwnpin  =  ’P* 

else 

IWUTPUT  -  'S’ 
endif 

case  AREVCHOICE  =  ’  ’ 
exit 

endcase  HREVCH01CE 


fWEVCHOICE  =  ’  ’ 
enddo 

clear  all 
return 
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f  TRPTPlJfi  PS S 

i  Aenu  for  selecting  uhtch  publications  to  display  or  print. 

set  talk  off 
store  ”  to  ICH01CE 


da  uhile  (CHOICE  »  '  ABCK' 

Hi", IS  say  'SELECTIOK  CRITOtlOH  FGR  REWEM1N6  ARTICLES’ 
i  12,21  say  ’A.  A  specific  subiissien  rmkv. 

“  A  specific  area.’ 

A  particular  acceptance  status. 

A  subject  category  nunber.’ 
c  ~  All  entries  in  the  data  base. 

P  U,l?  say  «  -  Exit  this  «nu.’ 

P  21,24  say  ’State  your  preference:  yet  (CHOICE  picture 


P  13,21  say  ’B. 
P  14,21  say  ’C. 
P  15,21  say  ’D. 
P  16,2f  say  ’E. 


do  case 

case  ipper(ICHOItt) z  ’A’ 
do  1PPRTSI 

case  upperllCHBICE.1  -  T 
do  TPPRTAR 

case  upper(ICHOlCE)  =  ’C' 
do  TPPRIAC 

case  ippertlCHOICE)  :  '0 
do  TPPRTCH 

case  upper(lOS)ICE)  -  ’E’ 
do  TPPRTAL 

case  (CHOICE  :  ’ 
exit 
endcase 

stare  ’  '  to  ICHOICE 

enddo  (CHOICE  =  '  A8CDE’ 
return 
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do  esse 

case  (1CH01CE  *  T 
do  TPUISTftT 
case  (CHOICE.  *  'T 

do  msrur 

endcase  (CHOICE 

(CHOICE ’  ' 
enddo  (CHOICE 
return 
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i  MJ1HED11.FRT 

R  2,2  satj  'Submission  number  is:' 

§  2,36  say  SUBNUM  picture  "WW 
R  3,2  say  “Author's  last  name  (15  max):' 

I!  3,36  get  LASTNAHE 

I  4,2  say  "First  name  I  initial  (12  max):” 

R 4,36  get  FIRST)#* 

R  5,2  say  “Author's  affiliation  (51  max):" 

R  6,16  get  AFFILIATE 
I  7,2  say  “First  address  line  (31  «ax):“ 

R  7,36  get  ADDRESS1 

I  8,2  say  “Second  address  line  (31  max):" 

R  8,36  get  AD0RESS2 
R  9,2  say  “City  (21  max):' 

R  9,36  get  CUT 

R  11,2  say  “State  or  Country  (2#  max):" 

R  11,36  get  STATE 

R  11,2  say  'Zip  code  (XXXXX-XXXX):" 

R  11,36  get  ZIP 

R  12,2  say  “Telephone  number  (XXHXHm):" 
R  12,36  get  PHONE 

R  14,2  say  "(Hit  PgDn  for  next  author.)' 
read 
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J  AUTHIWT.FMT 

I  2,2  say  “Subussion  nmher  is  (XXXXX). 
g 2,36  get  SUWt»  picture  W 
g  3,2  say  “Author's  last  na*e  (15  «ax):“ 

?  3,36  get  LASTHME 

g  4,2  say  "First  na«e  and  initial  (12  iax):“ 

«  4,36  get  FIRSTHAflE 

g 5,2  say  "Author’s  affiliation  (51  «x):“ 

(  6,3  get  AFFILIATE 

I  7,2  say  “First  address  line  (31  «ax):“ 

*  7,36  get  AD0RESS1 

I  S,2  say  "Second  address  line  (31  •ax):* 

«  8,36  get  AD0AESS2 
g  9,2  say  “City  (21  mx):' 

8  9,36  get  CUT 

g  11,2  say  ‘State  or  Country  (21  m)‘.“ 
g  11,36  get  STATE 

g  11,2  say  "Zip  code  (xxxxx-xxxx):" 
g  11,36  get  ZIP 

g  12,2  say  “Telephone  nuiber  (XXX-XXX-XXXX):1* 
g  12,36  get  PHONE 

i  14,2  say  “Hit  PgDn  for  next  author." 
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i  USIAftEA.FHT 

R  3 ,8  SAT  *t - ■ 

A  3,43  SAY  “ - r" 

§  4,8  SAY  *|  STATISTICS  GENERATED  FOR  AREA:" 

A  4,5#  GET  echo  ice  PICTURE  'a' 

A  4,68  SAT  '|* 

A  5,4  SAT  - { - " 

A  5,43  SAT  “ - 

*  4,8  SAT  “|  j“ 

A  4,48  SAT  T 

§  7,8  SAT  'I  A.  Decision  Analysis  (  8.  Oefense  8  Inti  Se" 

I  7,43  SAT  "c.  |“ 


R  8,8  SAT  “|  |“ 

R  8,48  SAT  "|* 

R  9,8  SAT  "|  C.  Distribution/Netwrts  | 

R  9,48  SAT  T 

R  11,8  SAT  "|  |“ 

R  11,48  SAT  "|* 

R  11,8  SAT  "|  E.  Coeputer  Science  | 

R  11,43  SAT  "flgit  |“ 

R  12,8  SAT  “|  | 

R  12,43  SAT  "n*ent|" 

R  13,8  SAT  "|  I” 

R  13,48  SAT  T 

R  14,8  SAT  "|  6.  Optimization  | 

R  14,48  SAT 

R  15,8  SAT  “|  |" 

@  15,68  SAY  " | ** 

R  14,8  SAT  “|  1.  Product ion/Scheduling/| 

R  14,43  SAT  “tion  |* 

R  17,8  SAT  ”|  Inventcry/Aatls  Ag«t| 

R  17,43  SAT  "odels|" 

R  18,8  SAT  “|  l" 

R  18,48  SAT  T 

R  19,8  SAT  "|  T.  Social  Sciences  | 

R  19,43  SAT  “licnsf 

R  21,8  SAT  “|  and  Public  Sector  |" 
R  21,48  SAT  T 

R  21,8  SAT  "|  I" 

R  21,48  SAT  ■I" 

R  22,8  SAT  “I  H.  Aggregate  (all)  | 

R  22,48  SAT  *|* 

R  23,8  SAT  "i - f 

R  23,43  SAT  * — 


0.  Health  Care" 

f.  Natural  Resource" 
Energy  I  Enviro" 

H.  OR  Practice" 

J.  SimulationAvalua" 
of  Stochastic  A" 

L.  Stoch.  Proc  I  App" 


REIIIN  -  to  exit" 

N 


* 
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i  HKOILWr 


p  3,3  say  "Subitssion  muter  (XXXXX):" 
p  3,44  say  SU8«JW  picture  "WW 
?  4,3  say  "Title  UM  »x)H 
P  5,4  get  TITLE 

p  7,3  say  "Acceptance  code  (X):“ 

!  7,44  get  ACCCODE  picture  '!* 

1 8,4  say  “H:in  revieu  A:  accepted  R:  rejected 
p  9,4  say  "P:pubUshed  A:  returned  for  wdification" 
p  11,3  say  "Acceptance/Rejection  date  IIHI/DO/'/V: 
p  11,44  get  ACRJDATE 

p  12,3  say  "Publication  date  (Wl/DD/TT):" 
p  12,44  get  PUBOATE 

p  13,3  say  "Subitssion  date  (IW/D0/YY):M 


§  13,44  get  SUBDATE 

p  14,3  say  "Area  editor  subject  abbreviation  IXXXXXK' 

P  14,44  qet  AREA  picture  *!!!!<“ 

P  15,5  say  "DARK  MS  MFP  HCSS1  ICS  »*E" 

P  14,5  say  "OPT  ORP  PSffl  SIESR  SSPS  SPTA" 

P  18,3  say  “Nmber  of  authors  (X):“ 

P  18,44  get  AUTHORS  picture  "9" 

P  19,3  say  "First  subject  category  nuber  (XXX):" 
p  19,44  get  CATHWttl  picture  "W 
P  21,3  say  "Second  subject  category  nuiber  (XXX). 
p  21,44  get  CATHURB2  picture  “itt" 

P  21,3  say  " Jhird  subject  category  nutber  (MX), 
p  21,44  get  CATHURB3  picture  "HI*  lt  ,  . 

»  7)  a  Ju  ’The  first  of  ’  ♦  strlAUTHORS,!)  ♦  author(s) 


P  22,44  say  TFIRSTAUTH 

P  24,3  say  ’(Hit  PgDn  to  *ove  to  author  file) 
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*  PU8INPUT.F8T  . 
p  2,2  say  "Subitssion  nmber  (XXXM). 

p  2,45  get  SUBNUtH  puttre  "99W" 
p 3,2  say  "Title  (1#  characters  «x):‘ 
I  4,3  get  TITLE 

p 6.2  say  "Umber  of  authors  IX):" 

P  6,45  get  AUTHORS  picture  "V" 
p  7,2  say  "Subiission  date  (IW/DO/TT):" 


p 7,45  get  SUBDATE 

e  8,2  say  "First  subject  category  nunber  (XXX): 

1 8.45  get  CATNUM1  picture  "HI" 
p  9,2  say  "Second  subject  category  nmber  (XXX):" 
p 9,45  get  CATMM2  picture  “*•** 
p  IP, 2  say  “Third  subject  category  nmber  (XXX):" 

P  11,45  get  CATHUW3  picture  "HH" 

P  11,2  say  "Area  editor  subject  abbreviation  (XXXXX): 
P  11,45  get  AREA  picture  "!!!!!" 

P  12,5  say  “DASH  DIS  WFP  HCSSI  ICS  WlltE" 
p  13,5  say  "OPT  ORP  PSIffi  SIESfl  SSPS  SPtt* 
P  15,2  say  "(Hit  PgDn  to  love  to  author  file.)" 
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*  TEDITOR.FRT 

8  4,15  ay  "Area." 

8  4,22  get  AREA 
8  7,15  get  TITLE 

8 9.15  get  LAST#* 

i  11,15  get  FIRST#* 
8  11,15  get  AFFILIATE 
8  12,15  get  AMRESS1 
8  13,15  get  AOORESS2 

8 14.15  get  CUT 
8  15,15  get  STATE 
8  14,15  get  21P 

8  17,15  get  PHONE 
read 


i  TRPfiTrtKU.FflT 

8  3,12  SAY  j 

8  4,12  SAY  “|  |- 

8  5,12  SAY  "|  IEVIEII I  PRINT  OPTIONS  Selection:" 

8  5,51  GET  IRfl/CHOiCE  PICTURE  'I' 

8  5 ,66  SAY  “|“ 

8  6,12  SAY  ’|  |" 

8  7,12  SAY  *|  |“ 

8  8,12  SAY  “|  1.  Publications  2.  Authors  j" 

8  9,12  SAY  "|  |* 

8  11,12  SAY  'I  3.  Area  editors  4.  S1G  Chaireen  |" 

8  11,12  SAY  *|  |> 

8  12,12  SAY  *|  5.  Hailing  labels  6,  Sub.  categories  |" 

8  13,12  SAY  ‘|  |* 

8  14,12  SAY  "|  7.  Toggle  Current/Historical  Status:" 

8  14,55  say  (DATA 

8  14,66  SAY  "|" 

8  15,12  SAY  “j  I” 

8  16,12  SAY  "j  8.  Toggle  Screen/Printer  Status:* 

8  16,55  say  IWJTPUT 

8  16,66  SAY  “|* 

8  17,12  SAY  “|  |“ 

8  18,12  SAY  “|  RETUM  -  Exit  this  tenu  |* 

8  19,12  SAY  “|  |" 

8  21,12  SAY  "l™:r^=:rz=:=:z::=— 
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i  TS16.FRT 
( 541  ay  MAr€a:“ 

1  546  yet  AREA 
9 64*  ay  “SI6  Chairtan:' 

*  6,26  get  SI6CHAIA 

9  74*  get  SAFFILIATE 

*  84*  get  SMMSS1 
9  9,11  get  SAD0RESS2 
9  1141  get  sent 

( 1141  get  SSTAFE 
9  124*  get  S2IP 
9  134*  get  SPHONE 
read 
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